Home | History | Annotate | Download | only in Test

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);