Lines Matching full:my
1 package My::Aggregator;
6 my ($class) = @_;
8 my $self = { results => {} };
16 my ($self, $description, $parser) = @_;
23 package My::Session;
28 my ($class, %args) = @_;
30 my $self = { %args };
35 my ($self, $result) = @_;
45 package My::Formatter;
50 my ($class, $args) = @_;
52 my $self = { %$args };
57 my ($self, $aggregator, $interrupted) = @_;
60 "My %sinterrupted formatter summary for %s",
68 my ($self, $test_name, $parser) = @_;
70 return My::Session->new( name => $test_name, parser => $parser );
74 package My::Multiplexer;
79 my ($class) = @_;
81 my $self = { parsers => [] };
86 my ( $self, $parser, $stash ) = @_;
93 my ($self) = @_;
96 my ($parser, $stash) = @{ $self->{parsers}->[0] };
97 my $result = $parser->next;
104 package My::Result;
109 my ($class, %args) = @_;
111 my $self = { %args };
125 package My::Parser;
130 my ($class, $args) = @_;
132 my $self = { %$args, nexted => 0 };
137 my ($self) = @_;
140 return My::Result->new( source => $self->{source} );
155 package My::Job;
162 my ($class, %args) = @_;
164 my $self = { %args };
175 package My::Scheduler;
180 my ($class, %args) = @_;
182 my @jobs = map
183 { My::Job->new( filename => $_->[0], description => $_->[1] ) }
186 my $self = { %args, jobs => [ @jobs ] };
202 my (%arg) = @_;
205 aggregator_class => 'My::Aggregator',
206 formatter_class => 'My::Formatter',
207 multiplexer_class => 'My::Multiplexer',
208 parser_class => 'My::Parser',
209 scheduler_class => 'My::Scheduler',
214 my @after_test_callbacks;
216 my $harness = create_harness( jobs => 1 );
219 my $err = $@;
234 [ @My::Job::finished_jobs ],