Parent Directory | Revision Log
make classes immutable and remove moose droppings to make Perl::Critic::Moose happy
1 | dpavlin | 573 | package Frey::Skeleton; |
2 | use Moose; | ||
3 | |||
4 | extends 'Frey'; | ||
5 | dpavlin | 1133 | with 'Frey::Web'; #, 'Frey::Storage'; |
6 | dpavlin | 573 | |
7 | has skeleton => ( | ||
8 | is => 'rw', | ||
9 | isa => 'Str', | ||
10 | required => 1, | ||
11 | default => 'skeleton', | ||
12 | ); | ||
13 | |||
14 | sub as_markup { | ||
15 | my ($self) = @_; | ||
16 | dpavlin | 676 | |
17 | $self->skeleton; | ||
18 | dpavlin | 573 | } |
19 | |||
20 | dpavlin | 1133 | __PACKAGE__->meta->make_immutable; |
21 | no Moose; | ||
22 | |||
23 | dpavlin | 573 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |