The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w
use strict;
use Test;
BEGIN { plan tests => 3 }

use SVG::Parser;
ok(1);

my $parser=new SVG::Parser;
ok(defined $parser);

my $svg=$parser->parsefile("t/in/svg.xml");
ok(defined $svg);