File Coverage

blib/lib/Net/Amazon/EC2/Error.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 16 75.0


line stmt bran cond sub pod time code
1             package Net::Amazon::EC2::Error;
2 2     2   1259 use Moose;
  2         4  
  2         18  
3              
4             =head1 NAME
5              
6             Net::Amazon::EC2::Error
7              
8             =head1 DESCRIPTION
9              
10             A class representing an EC2 API error.
11              
12             =head1 ATTRIBUTES
13              
14             =over
15              
16             =item code (required)
17              
18             The error code returned from the API request.
19              
20             =item message (required)
21              
22             The long form message about the error.
23              
24             =cut
25              
26 2     2   11090 use overload '""' => 'as_string';
  2         6  
  2         17  
27              
28             has 'code' => ( is => 'ro', isa => 'Str', required => 1 );
29             has 'message' => ( is => 'ro', isa => 'Str', required => 1 );
30              
31             sub as_string {
32 0     0 0   my $self = shift;
33 0           return '['.$self->code.'] '.$self->message;
34             }
35              
36             __PACKAGE__->meta->make_immutable();
37              
38             =back
39              
40             =head1 AUTHOR
41              
42             Jeff Kim <cpan@chosec.com>
43              
44             =head1 COPYRIGHT
45              
46             Copyright (c) 2006-2010 Jeff Kim. This program is free software; you can redistribute it and/or modify it
47             under the same terms as Perl itself.
48              
49             =cut
50              
51 2     2   316 no Moose;
  2         5  
  2         11  
52             1;