1 |
package Frey::Web; |
package Frey::Web; |
2 |
use Moose::Role; |
use Moose::Role; |
3 |
|
|
4 |
with 'Frey::Session'; |
with 'Frey::Session', 'Frey::Class::Icon'; |
|
with 'Frey::Class::Icon'; |
|
5 |
|
|
6 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
7 |
use Carp qw/confess cluck carp/; |
use Carp qw/confess cluck carp/; |
478 |
|
|
479 |
Called at beginning of each request |
Called at beginning of each request |
480 |
|
|
481 |
$self->clean_status; |
$self->setup_request; |
482 |
|
|
483 |
=cut |
=cut |
484 |
|
|
485 |
sub clean_status { |
sub setup_request { |
486 |
my ($self) = shift; |
my ($self) = shift; |
487 |
warn "## clean_status"; |
warn "## clean_status"; |
488 |
@head = ( 'static/frey.css' ); |
@head = ( 'static/frey.css' ); |
714 |
return $t; |
return $t; |
715 |
} |
} |
716 |
|
|
717 |
|
no Moose::Role; |
718 |
|
|
719 |
1; |
1; |