Can't locate object method "Foo" via package "SVG::Element" at ./test.pl line 17.

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

package MyPackage;
use parent 'SVG';

sub Foo {
	my ($self, $fooArg) = @_;
	return $self->rectangle(id => $fooArg, x => 10, y => 10);
}

sub Bar {
	my ($self, $barArg) = @_;
	my $g = $self->group(id => $barArg);
	return $g->Foo("g$barArg");
}

package main;

my $s = MyPackage->new(); 

$s->Foo("someID");
$s->Bar("someOtherID");
print $s->xmlify(namespace => 'svg');