File Coverage

blib/lib/Test/More/Prefix/TB1.pm

Criterion	Covered	Total	%
statement	7	11	63.6
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod			n/a
total	10	16	62.5

package Test::More::Prefix::TB1;
$Test::More::Prefix::TB1::VERSION = '0.005';
# Load Test::More::Prefix for early versions of Test::Builder

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(test_prefix);

our $prefix = '';

sub import { __PACKAGE__->export_to_level(2, @_); }

sub test_prefix {
    $prefix = shift();
}

package Test::More::Prefix::ModifierRole;
$Test::More::Prefix::ModifierRole::VERSION = '0.005';
use strict;
use warnings;
use Moose::Role;

requires '_print_comment';
requires 'done_testing';

around '_print_comment' => sub {
    my ($orig, $self, $fh, @args) = @_;
    if ( $prefix && length( $prefix ) ) {
        @args = map {
            defined $_ ? "$prefix: $_" : $_
        } @args;
    }
    return $self->$orig( $fh, @args );
};

before 'done_testing' => sub {
    undef($prefix);
};

# mst told me to do this :-)
package
    Test::Builder;
use Moose;
with 'Test::More::Prefix::ModifierRole';

1;