File Coverage

blib/lib/Test/Count/Filter/ByFileType/App.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	4	0.0
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	21	36	58.3

package Test::Count::Filter::ByFileType::App;
$Test::Count::Filter::ByFileType::App::VERSION = '0.1104';
use strict;
use warnings;

use Test::Count::Filter ();
use Getopt::Long qw/ GetOptions /;

use parent 'Exporter';

our @EXPORT = (qw(run));


sub run
{
    my $filetype = "perl";
    GetOptions( 'ft=s' => \$filetype );

    my %params = (
        'lisp' => {
            assert_prefix_regex => qr{; TEST},
            plan_prefix_regex   => qr{\(plan\s+},
        },
        'c' => {
            assert_prefix_regex => qr{/[/\*]\s+TEST},
            plan_prefix_regex   => qr{\s*plan_tests\s*\(\s*},
        },
        'python' => {
            plan_prefix_regex => qr{plan\s*\(\s*},
        },
    );

    my %aliases = (
        'arc'    => "lisp",
        'scheme' => "lisp",
        'cpp'    => "c",
    );

    $filetype = exists( $aliases{$filetype} ) ? $aliases{$filetype} : $filetype;
    my $ft_params = exists( $params{$filetype} ) ? $params{$filetype} : +{};

    my $filter = Test::Count::Filter->new( { %{$ft_params}, } );

    $filter->process();

    return 0;
}

1;

__END__