File Coverage

blib/lib/App/Prove/Plugin/Count.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	0	1	0.0
total	37	38	97.3

package App::Prove::Plugin::Count;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.03";

use App::Prove;
use Class::Method::Modifiers qw( around );
use TAP::Formatter::Base;

my $total_file_count;
my $current_file_count = 0;

sub load {
    around 'App::Prove::_get_tests' => sub {
        my $orig  = shift;
        my @tests = $orig->(@_);
        $total_file_count = scalar @tests;
        return @tests;
    };
    around 'TAP::Formatter::Base::_format_name' => sub {
        my $orig = shift;
        my $ret  = $orig->(@_);
        $current_file_count++;
        my $spacer = " "
            x ( length($total_file_count) - length($current_file_count) );
        return "[$spacer$current_file_count/$total_file_count] $ret";
    };
}

1;
__END__