diff --git a/Makefile.PL b/Makefile.PL index 75e40ea6..378a6bac 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -31,7 +31,6 @@ WriteMakefile( 'Path::Tiny' => 0, 'Plack' => 1.0031, 'Storable' => 2.51, # dclone is used - 'SVG' => 0, # for Perl::Maven::SVG 'Template' => 2.25, 'Time::HiRes' => 0, 'YAML' => 1.09, @@ -48,17 +47,12 @@ WriteMakefile( 'URL::Encode::XS' => 0, # recommended by Dancer2 # needed for bin/perl_analyze.pl - 'MetaCPAN::Client' => 0, - 'LWP::Simple' => 0, - 'Config::Tiny' => 0, - 'JSON::XS' => 0, # should be replaced! + 'JSON::XS' => 0, # should be replaced! # For testing - 'Test::WWW::Mechanize' => 1.44, - 'Test::WWW::Mechanize::PSGI' => 0.35, - 'Test::More' => 1, - 'Test::Most' => 0.34, - 'Test::Script' => 1.07, + 'Test::More' => 1, + 'Test::Most' => 0.34, + 'Test::Script' => 1.07, # For deployment 'Starman' => 0.4009, diff --git a/lib/Perl/Maven/SVG.pm b/lib/Perl/Maven/SVG.pm deleted file mode 100644 index 34e54bc4..00000000 --- a/lib/Perl/Maven/SVG.pm +++ /dev/null @@ -1,43 +0,0 @@ -package Perl::Maven::SVG; -use Dancer2 appname => 'Perl::Maven'; - -use Data::Dumper qw(Dumper); - -our $VERSION = '0.11'; - -get '/svg.xml' => sub { - require SVG; - my %query = params(); - my $xml = circle( \%query ); - return $xml; -}; - -sub circle { - my ($data) = @_; - - #die Dumper $data; - - my $svg = SVG->new( - width => $data->{width}, - height => $data->{height}, - ); - - my $grp = $svg->group( - id => 'group_y', - style => { - stroke => $data->{stroke}, - fill => $data->{fill}, - }, - ); - - $grp->circle( - cx => $data->{cx}, - cy => $data->{cy}, - r => $data->{r}, - id => 'circle01', - ); - return $svg->xmlify; -} - -true; - diff --git a/t/00-load.t b/t/00-load.t index 56bb73eb..4368a003 100644 --- a/t/00-load.t +++ b/t/00-load.t @@ -12,7 +12,6 @@ plan tests => 1 + @scripts; use Perl::Maven::Config; use Perl::Maven::Page; -use Perl::Maven::SVG; use Perl::Maven::Tools; use Perl::Maven::WebTools;