File Coverage

blib/lib/Audio/DSS.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	3	0.0
total	37	42	88.1

package Audio::DSS;

use strict;
use warnings;
use Carp;

our $VERSION = '0.02';

sub new {
	my ($class, $file) = @_;
	my $self = bless {}, $class;
	$self->{file} = $file;
	if ($file) {
		$self->getDSSMetaData();
	}
	return $self;
}

sub getDSSMetaData {
	my $self = shift;
	my $d;
	my $buf;
	open IN, $self->{'file'} or die "Can't open $self->{file} because $!\n";
	read IN, $buf, 1256;
	$self->{id} = substr($buf, 1,3);
	$self->{create_date} = fixDSSDate(substr($buf, 38, 12));
	$self->{complete_date} = fixDSSDate(substr($buf, 50, 12));
	$self->{length} = substr($buf, 62, 6);
	$self->{priority} = undef;
	$self->{comments} = substr($buf, 0x31e,100);
	$self->{comments} =~ s/\x00//g;
	close IN;
}

sub fixDSSDate {
	my $raw = shift;
	# accept "040815193651" and return "2004-08-15 19:36:51"
	return "20" . substr($raw,0,2) . '-' . substr($raw,2,2) . '-' . substr($raw,4,2) . ' ' . substr($raw,6,2) . ':' . substr($raw,8,2) . ':' . substr($raw,10,2);
}

1;
__END__