moose.pl

package main;
use Data::Dump 'dump';

my $circle   = App::Circle->new( diameter => 10, center => '10x10', color => 'blue' );
my $triangle = App::Triangle->new( vertices => ['10x20', '20x50', '30x50'] );

dump $circle;
dump $triangle;

print $triangle->as_svg, "\n";
print $circle->as_svg, "\n";