File Coverage

blib/lib/App/CmdDispatch/Exception.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	19	22	86.3

package App::CmdDispatch::Exception;

use warnings;
use strict;

our $VERSION = '0.44';

sub new
{
    my ($class, @args) = @_;

    return bless { args => \@args }, $class;
}

sub why
{
    my ($self) = @_;
    return __PACKAGE__;
}

{
    package App::CmdDispatch::Exception::UnknownCommand;
    our @ISA = 'App::CmdDispatch::Exception';
    sub why
    {
        my ($self) = @_;
        return "Unrecognized command '$self->{args}->[0]'";
    }
}

{
    package App::CmdDispatch::Exception::MissingCommand;
    our @ISA = 'App::CmdDispatch::Exception';
    sub why
    {
        my ($self) = @_;
        return "Missing command";
    }
}
1;
__END__