view release on metacpan or  search on metacpan

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

package TestML::Runtime::TAP;

use TestML::Base;
extends '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

use IO::All::Base;
extends 'IO::All::IO';

has name => ();
option overload => ();

sub upgrade {
    my $self = shift;
    $self->{name} = delete $self->{location}
        if $self->{location};
    $self->SUPER::upgrade(@_);
}

1;