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', |
41 |
You can also add method invocation and optonal parametars to C<new> |
You can also add method invocation and optonal parametars to C<new> |
42 |
constructor like this: |
constructor like this: |
43 |
|
|
44 |
http://localhost:16001/Frey::Pod/markup?class=Frey |
http://localhost:16001/Frey::Pod/as_markup?class=Frey |
45 |
|
|
46 |
this is same using L<Frey::Pod> from perl as |
this is same using L<Frey::Pod> from perl as |
47 |
|
|
48 |
Frey::Pod->new( class => 'Frey' )->markup; |
Frey::Pod->new( class => 'Frey' )->as_markup; |
49 |
|
|
50 |
if you leave out parametars, L<Frey::Run> will ask for required ones. |
if you leave out parametars, L<Frey::Run> will ask for required ones. |
51 |
|
|
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; |