File Coverage

blib/lib/ZMQ/Raw/Error.pm
Criterion Covered Total %
statement 31 33 93.9
branch 2 4 50.0
condition n/a
subroutine 11 12 91.6
pod n/a
total 44 49 89.8


line stmt bran cond sub pod time code
1             package ZMQ::Raw::Error;
2             $ZMQ::Raw::Error::VERSION = '0.37';
3 14     60   75 use strict;
  14         19  
  14         326  
4 14     36   52 use warnings;
  14         19  
  14         251  
5 14     36   54 use Carp;
  14         21  
  14         1719  
6              
7             use overload
8 1     23   1928 '""' => sub { return $_[0] -> message.' at '.$_[0] -> file.' line '.$_[0] -> line },
9 1     23   192 '0+' => sub { return $_[0] -> code },
10 1     1   5 'bool' => sub { 1 },
11 14     36   14072 'fallback' => 1;
  14         12983  
  14         220  
12              
13 0     0   0 sub CLONE_SKIP { 1 }
14              
15             sub AUTOLOAD
16             {
17             # This AUTOLOAD is used to 'autoload' constants from the constant()
18             # XS function.
19              
20 23     23   126 my $constname;
21 23         26 our $AUTOLOAD;
22 23         116 ($constname = $AUTOLOAD) =~ s/.*:://;
23 23 50       56 croak "&ZMQ::Raw::Error::_constant not defined" if $constname eq '_constant';
24 23         99 my ($error, $val) = _constant ($constname);
25 23 50       38 if ($error) { croak $error; }
  0         0  
26             {
27 14     36   2436 no strict 'refs';
  14         48  
  14         960  
  23         23  
28 23     24   118 *$AUTOLOAD = sub { $val };
  24         81  
29             }
30 23         64 goto &$AUTOLOAD;
31             }
32              
33 14     36   71 use ZMQ::Raw;
  14         30  
  14         465  
34              
35             =head1 NAME
36              
37             ZMQ::Raw::Error - Error class
38              
39             =head1 VERSION
40              
41             version 0.37
42              
43             =head1 DESCRIPTION
44              
45             A L represents an error.
46              
47             =head1 METHODS
48              
49             =head2 message( )
50              
51             Error message.
52              
53             =head2 file( )
54              
55             Caller file.
56              
57             =head2 line( )
58              
59             Caller line.
60              
61             =head2 code( )
62              
63             Error code.
64              
65             =head1 CONSTANTS
66              
67             =head2 ENOTSUP
68              
69             =head2 EPROTONOSUPPORT
70              
71             =head2 ENOBUFS
72              
73             =head2 ENETDOWN
74              
75             =head2 EADDRINUSE
76              
77             =head2 EADDRNOTAVAIL
78              
79             =head2 ECONNREFUSED
80              
81             =head2 EINPROGRESS
82              
83             =head2 ENOTSOCK
84              
85             =head2 EMSGSIZE
86              
87             =head2 EAFNOSUPPORT
88              
89             =head2 ENETUNREACH
90              
91             =head2 ECONNABORTED
92              
93             =head2 ECONNRESET
94              
95             =head2 ENOTCONN
96              
97             =head2 ETIMEDOUT
98              
99             =head2 EHOSTUNREACH
100              
101             =head2 ENETRESET
102              
103             =head2 EFSM
104              
105             =head2 ENOCOMPATPROTO
106              
107             =head2 ETERM
108              
109             =head2 EMTHREAD
110              
111             =head1 AUTHOR
112              
113             Jacques Germishuys
114              
115             =head1 LICENSE AND COPYRIGHT
116              
117             Copyright 2017 Jacques Germishuys.
118              
119             This program is free software; you can redistribute it and/or modify it
120             under the terms of either: the GNU General Public License as published
121             by the Free Software Foundation; or the Artistic License.
122              
123             See http://dev.perl.org/licenses/ for more information.
124              
125             =cut
126              
127             1; # End of ZMQ::Raw::Error