File Coverage

blib/lib/Video/Info.pm

Criterion	Covered	Total	%
statement	62	78	79.4
branch	14	20	70.0
condition	1	7	14.2
subroutine	9	12	75.0
pod	3	8	37.5
total	89	125	71.2

##------------------------------------------------------------------------
##  Package: Info.pm
##   Author: Benjamin R. Ginter, Allen Day
##   Notice: Copyright (c) 2002 Benjamin R. Ginter, Allen Day
##  Purpose: Retrieve Video Properties
## Comments: None
##      CVS: $Id
##------------------------------------------------------------------------

package Video::Info;

use strict;
use Video::Info::Magic;
use IO::File;

our $VERSION = '0.993';

use Class::MakeMethods::Emulator::MethodMaker
  get_set => [
			  'type',             #ASF,MPEG,RIFF...
			  'title',            #ASF media title
			  'author',           #ASF author
			  'date',             #ASF date (units???)
			  'copyright',        #ASF copyright
			  'description',      #ASF description (freetext)
			  'rating',           #ASF MPAA rating
			  'packets',          #ASF ???
			  'comments',         #MPEG

			  'astreams',         #no. of audio streams.  can this clash with achans?
#this has special behavior, method is below
#			  'acodec',           #audio codec
			  'acodecraw',        #audio codec (numeric)
			  'arate',            #audio bitrate
			  'afrequency',       #audio sampling frequency, in Hz
			  'achans',           #no. of audio channels.  can this clash with astreams?

			  'vstreams',         #no. of video streams
			  'vcodec',           #video codec
			  'vrate',            #video bitrate
			  'vframes',          #no. of video frames

			  'fps',              #video frames/second
			  'scale',            #quoeth transcode: if(scale!=0) AVI->fps = (double)rate/(double)scale;
			  'duration',         #duration of video, in seconds

			  'width',            #frame width
			  'height',           #frame height

			  'aspect_raw',       #how to handle this?  16:9 scalar, or 16/9 float?
			  'aspect',           #not sure what this is.  from MPEG

			  'filename',         #the sourcefile name
			  'filesize',         #the size of the source file

			  '_handle',          #filehandle to bitstream
			 ],
;

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my $self = bless {}, $class;

  $self = $self->init(@_);

  return $self;
}

sub init {
  my($self,%raw) = @_;
#  my($proto,%raw) = @_;
#  my $class = ref($proto) || $proto;
#  my $self = bless {}, $class;

  my %param;
  foreach(keys %raw){/^-?(.+)/;$param{$1} = $raw{$_}};

  if($param{file}){
	my($filetype,$handler) = @{ divine($param{file}) };

	if($handler){
	  my $class = __PACKAGE__ . '::' . $handler;

	  $class = 'MP3::Info' if $handler eq 'MP3';

	  my $has_class = eval "require $class";
	  $param{subtype} = $filetype;

	  if($has_class){
		if($handler eq 'MP3'){
		  $self = $class->new( $param{file} );
		  return $self;
		} else {
		  $self = $class->new(%param);
		  $self->probe( $param{file}, [ $filetype, $handler ] );
		}
	  }
	}
  }

  $self->{$_} = $param{$_} foreach(keys %param);

  $self->init_attributes(%param) ;

  $self->probe( $param{file} );

  return $self;
}

sub init_attributes {
  my $self = shift;
  my %raw = @_;
  my %param;
  foreach(keys %raw){/^-?(.+)/;$param{$1} = $raw{$_}};

  foreach my $attr (qw(
					   astreams arate achans vstreams vrate vframes fps
					   scale duration width height aspect aspect_raw
					  )
				   ) {
	$self->$attr(0);
  }

  $self->filename($param{file});
  $self->filesize(-s $param{file});
  $self->handle($param{file}) if $param{file};
}

##------------------------------------------------------------------------
## Extra methods
##
##------------------------------------------------------------------------
sub acodec {
  my($self,$arg) = @_;
  if($arg){
	$self->{acodec} = acodec2str($arg);
  } elsif(!$self->{acodec}){
	$self->{acodec} = acodec2str($self->acodecraw);
  }
  return $self->{acodec};
}

sub minutes {
  my $self = shift;
  my $seconds = int($self->duration) % 60;
  my $minutes = (int($self->duration) - $seconds) / 60;
  return $minutes;
}

sub MMSS {
  my $self = shift;
  my $mm = $self->minutes;
  my $ss = int($self->duration) - ($self->minutes * 60);

  my $return = sprintf( "%02d:%02d",$mm,$ss );
}

##------------------------------------------------------------------------
## handle()
##
## Open a file handle or return an existing one
##------------------------------------------------------------------------
sub handle {
    my($self,$file) = @_;

	if(defined $file){
	  my $fh = new IO::File;
	  $fh->open($file);
	  $self->_handle($fh);
	}
    return $self->_handle;
}

##------------------------------------------------------------------------
## probe()
##
## Open a video file and gather the stats
##------------------------------------------------------------------------
sub probe {
    my $self = shift;
    my $file = shift || die "probe(): A filename argument is required.\n";
    my $type = shift || divine($file) || die "probe(): Couldn't divine $file";

    my $warn;
    if ( $type->[1] ) {
	$warn .= "s of type $type->[1]\n";
    }
    else {
	$warn .= " type $type->[0]\n";
    }
    warn( ref( $self ),
	  '::probe() abstract method -- Create a child class for file',
	  $warn );

}

1;

__END__