The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

AVENJ / Weather-OpenWeatherMap-0.005004 / lib / Weather / OpenWeatherMap / Error.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
—
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

              
package Weather::OpenWeatherMap::Error;
$Weather::OpenWeatherMap::Error::VERSION = '0.005004';
use strictures 2;
use Carp;
use Types::Standard -all;
use Moo; 
with 'StackTrace::Auto';
use overload
  bool => sub { 1 },
  '""' => sub { shift->as_string },
  fallback => 1;
has request => (
  required  => 1,
  is        => 'ro',
  isa       => InstanceOf['Weather::OpenWeatherMap::Request'],
);
has source => (
  required  => 1,
  is        => 'ro',
  isa       => sub {
    $_[0] eq 'api' || $_[0] eq 'internal' || $_[0] eq 'http'
      or die "Expected one of: api, internal, http"
  },
);
has status => (
  required  => 1,
  is        => 'ro',
  isa       => Str,
);
sub as_string {
  my ($self) = @_;
  my $src = uc $self->source;
  my $msg = $self->status;
  "($src) $msg"
}
1;
=pod
=head1 NAME
Weather::OpenWeatherMap::Error - Internal and API error objects
=head1 SYNOPSIS
  # Usually received from Weather::OpenWeatherMap
=head1 DESCRIPTION
These objects contain information on internal or backend (API) errors; they
are generally thrown by L<Weather::OpenWeatherMap> or emitted by
L<POEx::Weather::OpenWeatherMap> in response to a failed request.
These objects overload stringification (see L</as_string>).
These objects consume L<StackTrace::Auto>.
=head2 ATTRIBUTES
=head3 request
The original L<Weather::OpenWeatherMap::Request> object that caused the
error to occur.
=head3 source
The source of the error, one of: C<api>, C<internal>, C<http>
=head3 status
The error/status message string.
=head2 METHODS
=head3 as_string
Returns a stringified representation of the error in the form:
C<< (uc $err->source) $err->status >>
=head1 SEE ALSO
L<Weather::OpenWeatherMap>
L<StackTrace::Auto>
L<Devel::StackTrace>
=head1 AUTHOR
Jon Portnoy <avenj@cobaltirc.org>
=cut