--- trunk/lib/Frey.pm 2008/11/19 01:26:46 436 +++ trunk/lib/Frey.pm 2008/11/19 19:59:52 468 @@ -1,7 +1,7 @@ package Frey; use Moose; -our $VERSION = "0.20"; +our $VERSION = "0.21"; has 'debug' => ( is => 'rw', @@ -41,11 +41,11 @@ You can also add method invocation and optonal parametars to C constructor like this: - http://localhost:16001/Frey::Pod/markup?class=Frey + http://localhost:16001/Frey::Pod/as_markup?class=Frey this is same using L from perl as - Frey::Pod->new( class => 'Frey' )->markup; + Frey::Pod->new( class => 'Frey' )->as_markup; if you leave out parametars, L will ask for required ones. @@ -57,4 +57,19 @@ =cut +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; +} + 1;