9 |
|
|
10 |
use Frey; |
use Frey; |
11 |
use Frey::Introspect; |
use Frey::Introspect; |
12 |
|
use Frey::ObjectBrowser; |
13 |
|
|
14 |
my @messages; # Global (shared) list of messages |
my @messages; # Global (shared) list of messages |
15 |
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 |
47 |
$f->html( $req ); |
$f->html( $req ); |
48 |
} |
} |
49 |
|
|
50 |
|
if ( $path =~ m!/ob/([^/]+)(?:/([^/]*))?! ) { |
51 |
|
my $f = Frey::ObjectBrowser->new; |
52 |
|
$f->html( $req ); |
53 |
|
} |
54 |
# If this is a request for the pushtream, then give them that |
# If this is a request for the pushtream, then give them that |
55 |
if($path =~ /pushstream/) { |
if($path =~ /pushstream/) { |
56 |
pushstream($req); |
pushstream($req); |
63 |
|
|
64 |
while ( 1 ) { |
while ( 1 ) { |
65 |
my $f = Frey->new; |
my $f = Frey->new; |
66 |
$req->print( dump( $f->classes ) ); |
my $classes = Continuity::Widget::DomNode->create( |
67 |
|
ul => [ |
68 |
|
map { |
69 |
|
warn dump( $_ ); |
70 |
|
my ( $package, $path ) = %$_; |
71 |
|
( li => [ a => { href => '/~/' . $package . '/' } => [ $package ], " <tt>$path</tt>" ] ) |
72 |
|
} @{ $f->classes } |
73 |
|
], |
74 |
|
)->to_string; |
75 |
|
$req->print( $classes ); |
76 |
$req->next; |
$req->next; |
77 |
} |
} |
78 |
} |
} |