Parent Directory | Revision Log | Patch
revision 531 by dpavlin, Wed Nov 19 19:59:52 2008 UTC | revision 532 by dpavlin, Wed Nov 26 07:57:12 2008 UTC | |
---|---|---|
# | Line 5 our $VERSION = "0.21"; | Line 5 our $VERSION = "0.21"; |
5 | ||
6 | has 'debug' => ( | has 'debug' => ( |
7 | is => 'rw', | is => 'rw', |
8 | isa => 'Bool', | isa => 'Int', |
9 | default => 0, | default => 0, |
10 | ); | ); |
11 | ||
# | Line 57 implemented by L<Frey::ObjectBrowser>. | Line 57 implemented by L<Frey::ObjectBrowser>. |
57 | ||
58 | =cut | =cut |
59 | ||
use Data::Dump qw/dump/; | ||
our @warnings; | ||
$SIG{__WARN__} = sub { | ||
# emit original warning | ||
warn(@_); | ||
push @warnings, $_ foreach @_; | ||
}; | ||
sub warnings { | ||
#print STDERR "### warnings ",dump( @warnings ); | ||
@warnings; | ||
} | ||
60 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |