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