Parent Directory | Revision Log
make classes immutable and remove moose droppings to make Perl::Critic::Moose happy
1 | 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 | no Moose::Role; |
28 | |
29 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |