File Coverage

blib/lib/App/ape.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	35	36	97.2

package App::ape;
$App::ape::VERSION = '0.001';

# PODNAME: App::ape
# ABSTRACT: Implements the `ape` binary

use strict;
use warnings;

use Pod::Usage;

use App::ape::test;
use App::ape::plan;
use App::ape::update;

sub new {
    my (undef, @args) = @_;
    my $command = shift @args;

    #I am being sneaky here and using bin/ape's POD
    return pod2usage(0) unless grep { $_ eq $command } qw{plan test update};

    my $program          = "App::ape::$command";
    my $program_perlized = "$program.pm";
    $program_perlized =~ s/::/\//g;
    $0 = $INC{$program_perlized};

    return $program->new(@args);
}

1;

__END__