Lines Matching refs:class
1 package My::Test::Class;7 BEGIN { extends 'Test::Class' }9 has 'class' => (15 my ($class, @args) = @_;16 my $self = $class->SUPER::new(@args);17 return $class->meta->new_object(24 (my $class = ref $test) =~ s/^Test:://xms;25 use_ok $class or die;26 $test->class($class);