Parent Directory | Revision Log | Patch
revision 468 by dpavlin, Wed Nov 19 19:59:52 2008 UTC | revision 692 by dpavlin, Tue Dec 2 22:06:48 2008 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | package Frey; | package Frey; |
2 | use Moose; | use Moose; |
3 | ||
4 | our $VERSION = "0.21"; | our $VERSION = "0.23"; |
5 | ||
6 | use Data::Dump qw//; | |
7 | sub dump { ref(shift) . ' ' . Data::Dump::dump ( @_ ) } | |
8 | ||
9 | has 'debug' => ( | has 'debug' => ( |
10 | is => 'rw', | is => 'rw', |
11 | isa => 'Bool', | isa => 'Int', |
12 | default => 0, | default => 0, |
13 | ); | ); |
14 | ||
# | Line 57 implemented by L<Frey::ObjectBrowser>. | Line 60 implemented by L<Frey::ObjectBrowser>. |
60 | ||
61 | =cut | =cut |
62 | ||
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; | ||
} | ||
63 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |