File Coverage

blib/lib/Password/Policy/Exception.pm

Criterion	Covered	Total	%
statement	13	16	81.2
branch			n/a
condition	0	2	0.0
subroutine	7	8	87.5
pod	0	3	0.0
total	20	29	68.9

package Password::Policy::Exception;
{
  $Password::Policy::Exception::VERSION = '0.02';
}

use strict;
use warnings;

use overload
    '""' => sub { shift->error },
    'cmp'   => \&_three_way_compare;


sub new { bless {} => shift; }
sub error { return "An unspecified exception was thrown."; }
sub throw { die shift->new; }

sub _three_way_compare {
    my $self = shift;
    my $other = shift || '';
    return $self->error cmp "$other";
}

1;



=pod

=head1 NAME

Password::Policy::Exception

=head1 VERSION

version 0.02

=head1 AUTHOR

Andrew Nelson

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Andrew Nelson.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut


__END__