7 |
|
|
8 |
#use Continuity::Widget::DomNode; |
#use Continuity::Widget::DomNode; |
9 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
10 |
use Carp qw/confess cluck/; |
use Carp qw/confess cluck carp/; |
11 |
use File::Slurp; |
use File::Slurp; |
12 |
|
|
13 |
use Frey::Bookmarklet; |
use Frey::Bookmarklet; |
26 |
isa => 'Uri', coerce => 1, |
isa => 'Uri', coerce => 1, |
27 |
required => 1, |
required => 1, |
28 |
default => sub { |
default => sub { |
29 |
cluck "undefined request_url"; |
carp "undefined request_url"; |
30 |
'/'; |
'/'; |
31 |
}, |
}, |
32 |
); |
); |
249 |
</span> |
</span> |
250 |
|; |
|; |
251 |
|
|
252 |
my $svk = Frey::SVK->new( request_url => '/' ); |
my $svk = Frey::SVK->new; |
253 |
my $info = $svk->info; |
my $info = $svk->info; |
254 |
my $revision = $svk->info->{Revision} || ''; |
my $revision = $svk->info->{Revision} || ''; |
255 |
$revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; |
$revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)}; |
373 |
sub clean_status { |
sub clean_status { |
374 |
my ($self) = shift; |
my ($self) = shift; |
375 |
@head = ( 'static/frey.css' ); |
@head = ( 'static/frey.css' ); |
|
my $params = { request_url => $self->request_url }; |
|
376 |
@status = ( |
@status = ( |
377 |
{ 'ClassBrowser' => Frey::ClassBrowser->new( %$params, usage_on_top => 0 )->as_markup }, |
{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup }, |
378 |
{ 'Bookmarklets' => Frey::Bookmarklet->new( %$params )->as_markup }, |
{ 'Bookmarklets' => Frey::Bookmarklet->new->as_markup }, |
379 |
{ 'INC' => Frey::INC->new( %$params )->as_markup }, |
{ 'INC' => Frey::INC->new->as_markup }, |
380 |
); |
); |
381 |
$icon_html = ''; |
$icon_html = ''; |
382 |
} |
} |