view release on metacpan or  search on metacpan

inc/TestML/Runtime/TAP.pm  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
package TestML::Runtime::TAP;
 
use TestML::Base;
extends 'https://metacpan.org/pod/TestML::Runtime">TestML::Runtime';
 
has tap_object => sub { Test::Builder->new };
has planned => 0;
 
sub run {
    my ($self) = @_;
    $self->SUPER::run;
    $self->check_plan;
    $self->plan_end;
}
 
sub run_assertion {
    my ($self, @args) = @_;
    $self->check_plan;
    $self->SUPER::run_assertion(@args);
}
 
sub check_plan {
    my ($self) = @_;
    if (! $self->planned) {
        $self->title;
        $self->plan_begin;
        $self->{planned} = 1;
    }
}

lib/IO/All/Filesys.pm  view on Meta::CPAN

2
3
4
5
6
7
8
9
10
11
12
13
14
15
use IO::All::Base;
extends 'https://metacpan.org/pod/IO::All::IO">IO::All::IO';
 
has name => ();
option overload => ();
 
sub upgrade {
    my $self = shift;
    $self->{name} = delete $self->{location}
        if $self->{location};
    $self->SUPER::upgrade(@_);
}
 
1;