[ViewVC] Contents of: cvs/Convert-CD/eg/dump

#!/usr/bin/perl

use Convert::CD::Analyze;

my $toc = new Convert::CD::Analyze path => $ARGV[0];
my $cd = $toc->read;

warn $cd->as_string;


Revision:	1.2
Committed:	Wed Jun 11 10:50:55 2003 UTC (21 years, 3 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+2 -3 lines
Log Message:	* empty log message *
#	Content
1	#!/usr/bin/perl
2
3	use Convert::CD::Analyze;
4
5	my $toc = new Convert::CD::Analyze path => $ARGV[0];
6	my $cd = $toc->read;
7
8	warn $cd->as_string;
9
10