/[Frey]/branches/zimbardo/lib/Frey/Web.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 /branches/zimbardo/lib/Frey/Web.pm

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

revision 407 by dpavlin, Tue Nov 18 12:02:57 2008 UTC revision 410 by dpavlin, Tue Nov 18 13:57:52 2008 UTC
# Line 10  use Data::Dump qw/dump/; Line 10  use Data::Dump qw/dump/;
10  use Carp qw/confess/;  use Carp qw/confess/;
11  use File::Slurp;  use File::Slurp;
12    
13    use Frey::Bookmarklet;
14    use Frey::ClassBrowser;
15    
16  has 'head' => (  has 'head' => (
17          is => 'rw',          is => 'rw',
18          isa => 'ArrayRef[Str]',          isa => 'ArrayRef[Str]',
# Line 21  has 'status' => ( Line 24  has 'status' => (
24          isa => 'ArrayRef[HashRef[Str]]',          isa => 'ArrayRef[HashRef[Str]]',
25          lazy => 1,          lazy => 1,
26          default => sub { [          default => sub { [
27                  { 'Bookmarklets' => Frey::Bookmarklet->markup },                  { 'Bookmarklets' => Frey::Bookmarklet->new->markup },
28                  { 'ClassBrowser' => Frey::ClassBrowser->markup },                  { 'ClassBrowser' => Frey::ClassBrowser->new->markup },
29          ] },          ] },
30  );  );
31    
# Line 115  our $reload_counter = 0; Line 118  our $reload_counter = 0;
118    
119  =cut  =cut
120    
 use Frey::Bookmarklet;  
 use Frey::ClassBrowser;  
   
121  sub page {  sub page {
122          my $self = shift;          my $self = shift;
123          my $a = {@_};          my $a = {@_};
Legend:
Removed from v.407  
changed lines
  Added in v.410
  ViewVC Help
Powered by ViewVC 1.1.26