view release on metacpan or  search on metacpan

lib/Algorithm/CriticalPath.pm  view on Meta::CPAN

Version 0.07

=cut

our $VERSION = '0.07';


use Graph;
use Carp;
use Data::Dumper;

has 'graph' => (
    is              => 'ro'
,   isa             => 'Graph'
,   required        => 1
);

has 'vertices' => (
    is  => 'rw'
,   isa => 'ArrayRef[Str]'

t/00-load.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 17;
use Test::Exception;
use Graph;
use Data::Dumper ;
use Data::Printer;

BEGIN {

    use_ok( 'Algorithm::CriticalPath' )                             || print "Bail out!\n";
    
    # Test not supplying a graph
    throws_ok ( sub { my $cp = Algorithm::CriticalPath->new() }, qr/Attribute \(graph\) is required/, 'Critical Path analysis requires a graph.');