view release on metacpan or  search on metacpan

t/01-tsort.t  view on Meta::CPAN

#        NOTES:  ---
#       AUTHOR:  YOUR NAME (), 
#      CREATED:  21.09.2010 14:51:26
#     REVISION:  ---
#===============================================================================

use strict;
use warnings;
use lib 'lib';
use Algorithm::TSort qw(Graph tsort);
use autouse 'Data::Dumper'=> 'Dumper';
use Test::More qw(no_plan);

my $buf = "1 2 3\n2 4\n3 4\n5 5\n6 7\n7 6";
my $fh;
open $fh, "<", \$buf;
my ( $g01, $g02, $g03, $g04, $g05 );

( $g01 = Graph( SCALAR => $buf ) );
( $g02 = Graph( IO     => $fh ) );
my $adj;