Parent Directory | Revision Log | Patch
revision 455 by dpavlin, Wed Nov 19 15:28:23 2008 UTC | revision 468 by dpavlin, Wed Nov 19 19:59:52 2008 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | package Frey; | package Frey; |
2 | use Moose; | use Moose; |
3 | ||
4 | our $VERSION = "0.20"; | our $VERSION = "0.21"; |
5 | ||
6 | has 'debug' => ( | has 'debug' => ( |
7 | is => 'rw', | is => 'rw', |
# | Line 57 implemented by L<Frey::ObjectBrowser>. | Line 57 implemented by L<Frey::ObjectBrowser>. |
57 | ||
58 | =cut | =cut |
59 | ||
60 | use Data::Dump qw/dump/; | |
61 | ||
62 | our @warnings; | |
63 | $SIG{__WARN__} = sub { | |
64 | # emit original warning | |
65 | warn(@_); | |
66 | ||
67 | push @warnings, $_ foreach @_; | |
68 | }; | |
69 | ||
70 | sub warnings { | |
71 | #print STDERR "### warnings ",dump( @warnings ); | |
72 | @warnings; | |
73 | } | |
74 | ||
75 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |