diff options
Diffstat (limited to 'lib/Data/MultiValued/Exceptions.pm')
-rw-r--r-- | lib/Data/MultiValued/Exceptions.pm | 151 |
1 files changed, 102 insertions, 49 deletions
diff --git a/lib/Data/MultiValued/Exceptions.pm b/lib/Data/MultiValued/Exceptions.pm index 6495780..c908388 100644 --- a/lib/Data/MultiValued/Exceptions.pm +++ b/lib/Data/MultiValued/Exceptions.pm @@ -1,22 +1,21 @@ package Data::MultiValued::Exceptions; +{ + $Data::MultiValued::Exceptions::VERSION = '0.0.1_3'; +} +{ + $Data::MultiValued::Exceptions::DIST = 'Data-MultiValued'; +} # ABSTRACT: exception classes -=head1 DESCRIPTION - -This module defines a few exception classes, using L<Throwable::Error> -as a base class. - -=head1 CLASSES - -=head2 C<Data::MultiValued::Exceptions::NotFound> -Base class for "not found" errors. Has a C<value> attribute, -containing the value that was not found. - -=cut - -package Data::MultiValued::Exceptions::NotFound;{ +package Data::MultiValued::Exceptions::NotFound; +{ + $Data::MultiValued::Exceptions::NotFound::VERSION = '0.0.1_3'; +} +{ + $Data::MultiValued::Exceptions::NotFound::DIST = 'Data-MultiValued'; +}{ use Moose; extends 'Throwable::Error'; @@ -35,18 +34,14 @@ sub as_string { } } -=head2 C<Data::MultiValued::Exceptions::TagNotFound> -Subclass of L</Data::MultiValued::Exceptions::NotFound>, for -tags. Stringifies to: - - tag not found: $value - - $stack_trace - -=cut - -package Data::MultiValued::Exceptions::TagNotFound;{ +package Data::MultiValued::Exceptions::TagNotFound; +{ + $Data::MultiValued::Exceptions::TagNotFound::VERSION = '0.0.1_3'; +} +{ + $Data::MultiValued::Exceptions::TagNotFound::DIST = 'Data-MultiValued'; +}{ use Moose; extends 'Data::MultiValued::Exceptions::NotFound'; @@ -55,18 +50,14 @@ has '+message' => ( ); } -=head2 C<Data::MultiValued::Exceptions::RangeNotFound> - -Subclass of L</Data::MultiValued::Exceptions::NotFound>, for -ranges. Stringifies to: - no range found for value: $value - - $stack_trace - -=cut - -package Data::MultiValued::Exceptions::RangeNotFound;{ +package Data::MultiValued::Exceptions::RangeNotFound; +{ + $Data::MultiValued::Exceptions::RangeNotFound::VERSION = '0.0.1_3'; +} +{ + $Data::MultiValued::Exceptions::RangeNotFound::DIST = 'Data-MultiValued'; +}{ use Moose; extends 'Data::MultiValued::Exceptions::NotFound'; @@ -75,20 +66,14 @@ has '+message' => ( ); } -=head2 C<Data::MultiValued::Exceptions::BadRange> - -Thrown when an invalid range is supplied to a method. An invalid range -is a range with C<from> greater than C<to>. - -Stringifies to: - invalid range: $from, $to - - $stack_trace - -=cut - -package Data::MultiValued::Exceptions::BadRange;{ +package Data::MultiValued::Exceptions::BadRange; +{ + $Data::MultiValued::Exceptions::BadRange::VERSION = '0.0.1_3'; +} +{ + $Data::MultiValued::Exceptions::BadRange::DIST = 'Data-MultiValued'; +}{ use Moose; extends 'Throwable::Error'; @@ -109,3 +94,71 @@ sub as_string { } 1; + +__END__ +=pod + +=encoding utf-8 + +=head1 NAME + +Data::MultiValued::Exceptions - exception classes + +=head1 VERSION + +version 0.0.1_3 + +=head1 DESCRIPTION + +This module defines a few exception classes, using L<Throwable::Error> +as a base class. + +=head1 CLASSES + +=head2 C<Data::MultiValued::Exceptions::NotFound> + +Base class for "not found" errors. Has a C<value> attribute, +containing the value that was not found. + +=head2 C<Data::MultiValued::Exceptions::TagNotFound> + +Subclass of L</Data::MultiValued::Exceptions::NotFound>, for +tags. Stringifies to: + + tag not found: $value + + $stack_trace + +=head2 C<Data::MultiValued::Exceptions::RangeNotFound> + +Subclass of L</Data::MultiValued::Exceptions::NotFound>, for +ranges. Stringifies to: + + no range found for value: $value + + $stack_trace + +=head2 C<Data::MultiValued::Exceptions::BadRange> + +Thrown when an invalid range is supplied to a method. An invalid range +is a range with C<from> greater than C<to>. + +Stringifies to: + + invalid range: $from, $to + + $stack_trace + +=head1 AUTHOR + +Gianni Ceccarelli <dakkar@thenautilus.net> + +=head1 COPYRIGHT AND LICENSE + +This software is copyright (c) 2011 by Net-a-Porter.com. + +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 + |