/usr/local/CPAN/dvdrip/Video/DVDRip/PSU.pm

• package Video::DVDRip::PSU
  • nr
  • frames
  • set_nr
  • set_frames
  • new
• EOF

# $Id: PSU.pm 2187 2006-08-16 19:34:38Z joern $

#-----------------------------------------------------------------------
# Copyright (C) 2001-2006 Jörn Reder <joern AT zyn.de>.
# All Rights Reserved. See file COPYRIGHT for details.
#
# This program is part of Video::DVDRip, which is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#-----------------------------------------------------------------------

package Video::DVDRip::PSU;
use Locale::TextDomain qw (video.dvdrip);

use base Video::DVDRip::Base;

use Carp;
use strict;

sub nr				{ shift->{nr}				}
sub frames			{ shift->{frames}			}

sub set_nr			{ shift->{nr}			= $_[1] }
sub set_frames			{ shift->{frames}		= $_[1]	}

sub new {
    my $class = shift;
    my %par   = @_;
    my ( $nr, $frames ) = @par{ 'nr', 'frames' };

    my $self = bless {
        nr     => $nr,
        frames => $frames,
    }, $class;

    return $self;
}

1;