File Coverage

blib/lib/Video/Info/FOO.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	22	24	91.6

package Video::Info::FOO;

use strict;
our $VERSION = '0.00';

use base qw(Video::Info);

#######################################
# use this to define your custom
# get/set methods.  if they really
# belong in Video::Info, let me know
#######################################
use Class::MakeMethods::Emulator::MethodMaker
  get_set => [qw( )],
;

#######################################
# leave this intact, add any extra
# init stuff you need (maybe a get/set
# method?).  feel free to override
# init_attributes()
#######################################
sub init {
  my $self = shift;
  my %param = @_;
  $self->init_attributes(@_);
  return $self;
}

#######################################
# Obtain the filehandle and extract the
# properties from the file.  this is
# the core function of the module
#######################################
sub probe {
  my $self = shift;

  my $fh = $self->handle; ## inherited from Video::Info

  while(<$fh>){
    #parse it!
  }

  #####################################
  #return 1 for a successful parse
  #####################################
  return 1;
}

1;

__END__