8 |
#use Continuity::REPL; |
#use Continuity::REPL; |
9 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
10 |
|
|
11 |
use Frey; |
use Frey::ClassLoader; |
|
use Frey::Introspect; |
|
|
use Frey::ObjectBrowser; |
|
12 |
|
|
13 |
my @messages; # Global (shared) list of messages |
my @messages; # Global (shared) list of messages |
14 |
my $got_message; # Flag to indicate that there is a new message to display |
my $got_message; # Flag to indicate that there is a new message to display |
26 |
debug_level => 1, |
debug_level => 1, |
27 |
staticp => sub { $_[0]->url =~ m/\.(jpg|jpeg|gif|png|css|ico|js|html?)$/ }, |
staticp => sub { $_[0]->url =~ m/\.(jpg|jpeg|gif|png|css|ico|js|html?)$/ }, |
28 |
); |
); |
29 |
|
Frey::ClassLoader->new->load_all_classes(); |
30 |
$server->loop; |
$server->loop; |
31 |
} |
} |
32 |
|
|
50 |
} |
} |
51 |
|
|
52 |
if ( $path =~ m!/ob/([^/]+)(?:/([^/]*))?! ) { |
if ( $path =~ m!/ob/([^/]+)(?:/([^/]*))?! ) { |
53 |
my $f = Frey::ObjectBrowser->new; |
my $f = Frey::ObjectBrowser->new( fey_class => $1 ); |
54 |
$f->html( $req ); |
$f->html( $req ); |
55 |
} |
} |
56 |
|
|
68 |
ul => [ |
ul => [ |
69 |
map { |
map { |
70 |
warn dump( $_ ); |
warn dump( $_ ); |
71 |
my ( $package, $path ) = %$_; |
my $package = $_; |
72 |
( li => [ |
( li => [ |
73 |
a => { href => '/~/' . $package . '/' } => [ $package ], |
a => { href => '/~/' . $package . '/' } => [ $package ], |
74 |
' ', |
' <tt>', $f->package_path( $package ), '</tt> ', |
75 |
a => { href => '/ob/' . $package } => [ 'browse' ], |
$package->can('rows') ? |
76 |
" <tt>$path</tt>" |
( a => { href => '/ob/' . $package } => [ 'browse' ] ) : '', |
77 |
] ) |
] ) |
78 |
} @{ $f->classes } |
} $f->classes |
79 |
], |
], |
80 |
); |
); |
81 |
$req->print( $classes ); |
$req->print( $classes ); |