/[Frey]/trunk/lib/Frey.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 436 by dpavlin, Wed Nov 19 01:26:46 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 41  which will show L<Frey> class introspect Line 41  which will show L<Frey> class introspect
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    
# 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;
Legend:
Removed from v.436  
changed lines
  Added in v.468
  ViewVC Help
Powered by ViewVC 1.1.26