Parent Directory | Revision Log
make classes immutable and remove moose droppings to make Perl::Critic::Moose happy
1 | dpavlin | 822 | package Frey::File::FLV; |
2 | use Moose::Role; | ||
3 | |||
4 | use FLV::Info; | ||
5 | |||
6 | #requires 'path'; | ||
7 | |||
8 | has _flv => ( | ||
9 | is => 'rw', | ||
10 | isa => 'FLV::Info', | ||
11 | requred => 1, | ||
12 | lazy => 1, | ||
13 | default => sub { | ||
14 | my ($self) = @_; | ||
15 | my $reader = FLV::Info->new(); | ||
16 | warn "# parse ", $self->path; | ||
17 | $reader->parse( $self->path ); | ||
18 | $reader; | ||
19 | }, | ||
20 | ); | ||
21 | |||
22 | sub flv_info { | ||
23 | my ($self) = @_; | ||
24 | $self->_flv->get_info; | ||
25 | } | ||
26 | |||
27 | dpavlin | 1133 | no Moose::Role; |
28 | |||
29 | dpavlin | 822 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |