Frey/File/FLV.pm

package Frey::File::FLV;
use Moose::Role;

use FLV::Info;

#requires 'path';

has _flv => (
        is => 'rw',
        isa => 'FLV::Info',
        requred => 1,
        lazy => 1,
        default => sub {
                my ($self) = @_;
                my $reader = FLV::Info->new();
                warn "# parse ", $self->path;
                $reader->parse( $self->path );
                $reader;
        },
);

sub flv_info {
        my ($self) = @_;
        $self->_flv->get_info;
}

1;
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	1;