}
if ( $mod->VERSION < $prereqs{$mod} ) {
- push @missing, "$mod must be version $prereqs{$mod} or greater";
+ push @missing, "$mod must be version $prereqs{$mod} or greater (you have " . $mod->VERSION . ")";
}
}
my $class = shift;
ok( $class->can('meta'), "$class has a meta() method" )
- or BAIL_OUT("Cannot run tests against a class without a meta!");
+ or BAIL_OUT("$class does not have a meta() method (did you forget to 'use Moose'?)");
}
sub check_isa {
# perl bin/prove -lv t/01-classes.t
+# edit lib/Person.pm and lib/Employee.pm
+
Iterate til this passes all its tests</pre>
</div>