lib/SDL/MPEG.pm

   1 #!/usr/bin/env perl
   2 #
   3 # MPEG.pm
   4 #
   5 # Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
   6 #
   7 # ------------------------------------------------------------------------------
   8 #
   9 # This library is free software; you can redistribute it and/or
  10 # modify it under the terms of the GNU Lesser General Public
  11 # License as published by the Free Software Foundation; either
  12 # version 2.1 of the License, or (at your option) any later version.
  13 #
  14 # This library is distributed in the hope that it will be useful,
  15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 # Lesser General Public License for more details.
  18 #
  19 # You should have received a copy of the GNU Lesser General Public
  20 # License along with this library; if not, write to the Free Software
  21 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  22 #
  23 # ------------------------------------------------------------------------------
  24 #
  25 # Please feel free to send questions, suggestions or improvements to:
  26 #
  27 #       David J. Goehrig
  28 #       dgoehrig@cpan.org
  29 #
  30
  31 package SDL::MPEG;
  32
  33 use strict;
  34 use warnings;
  35 use Carp;
  36 use SDL;
  37
  38 sub new {
  39         my $proto = shift;
  40         my $class = ref($proto) || $proto;
  41         my %options = @_;
  42
  43         verify (%options, qw/ -from / ) if $SDL::DEBUG;
  44
  45         my $self;
  46         if ( $options{-from} ) {
  47                 croak "SDL::MPEG::new -from requires a SDL::Video object\n"
  48                         unless $options{-from}->isa('SDL::Video');
  49
  50                 $self = \SDL::SMPEGGetInfo(${$options{-from}});
  51         } else {
  52                 $self = \SDL::NewSMPEGInfo();
  53         }
  54         bless $self,$class;
  55         return $self;
  56 }
  57
  58 sub DESTROY {
  59         SDL::FreeSMPEGInfo(${$_[0]});
  60 }
  61
  62 sub has_audio {
  63         SDL::SMPEGInfoHasAudio(${$_[0]});
  64 }
  65
  66 sub has_video {
  67         SDL::SMPEGInfoHasVideo(${$_[0]});
  68 }
  69
  70 sub width {
  71         SDL::SMPEGInfoWidth(${$_[0]});
  72 }
  73
  74 sub height {
  75         SDL::SMPEGInfoHeight(${$_[0]});
  76 }
  77
  78 sub size {
  79         SDL::SMPEGInfoTotalSize(${$_[0]});
  80 }
  81
  82 sub offset {
  83         SDL::SMPEGInfoCurrentOffset(${$_[0]});
  84 }
  85
  86 sub frame {
  87         SDL::SMPEGInfoCurrentFrame(${$_[0]});
  88 }
  89
  90 sub fps {
  91         SDL::SMPEGInfoCurrentFPS(${$_[0]});
  92 }
  93
  94 sub time {
  95         SDL::SMPEGInfoCurrentTime(${$_[0]});
  96 }
  97
  98 sub length {
  99         SDL::SMPEGInfoTotalTime(${$_[0]});
 100 }
 101
 102 1;