File Coverage

lib/Exception/Argument.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

#!/usr/bin/perl -c

package Exception::Argument;

=head1 NAME

Exception::Argument - Thrown when called function or method with wrong argument

=head1 SYNOPSIS

  use Exception::Argument;

  sub method {
      my $self = shift;
      Exception::Argument->throw(
          message => 'Usage: $obj->method( STR )',
      ) if @_ < 1;
      my ($str) = @_;
      print $str;
  };

=head1 DESCRIPTION

This class is an L exception thrown when function or method
was called with wrong argument.

=for readme stop

=cut

use 5.006;
use strict;
use warnings;

our $VERSION = 0.05;


use Exception::Base 0.21 (
    'Exception::Argument' => {
        isa     => 'Exception::Died',
        message => 'Bad argument',
    },
);


1;


__END__