Hello community, here is the log from the commit of package perl-SVG for openSUSE:Factory checked in at 2015-06-09 12:25:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-SVG (Old) and /work/SRC/openSUSE:Factory/.perl-SVG.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-SVG" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-SVG/perl-SVG.changes 2015-04-15 16:26:57.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-SVG.new/perl-SVG.changes 2015-06-09 12:25:10.000000000 +0200 @@ -1,0 +2,9 @@ +Sun Jun 7 08:59:38 UTC 2015 - [email protected] + +- updated to 2.64 + see /usr/share/doc/packages/perl-SVG/Changes + + 2.64 2015.06.02 + - RT #103938 SVG::DOM insertSiblingAfter calls nonexistent 'parent' method (Marius Gavrilescu) + +------------------------------------------------------------------- Old: ---- SVG-2.63.tar.gz New: ---- SVG-2.64.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-SVG.spec ++++++ --- /var/tmp/diff_new_pack.SaSS3w/_old 2015-06-09 12:25:10.000000000 +0200 +++ /var/tmp/diff_new_pack.SaSS3w/_new 2015-06-09 12:25:10.000000000 +0200 @@ -17,14 +17,15 @@ Name: perl-SVG -Version: 2.63 +Version: 2.64 Release: 0 %define cpan_name SVG Summary: Perl extension for generating Scalable Vector Graphics (SVG) documents License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/SVG/ -Source: http://www.cpan.org/authors/id/S/SZ/SZABGAB/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/S/SZ/SZABGAB/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl ++++++ SVG-2.63.tar.gz -> SVG-2.64.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/.perlcriticrc new/SVG-2.64/.perlcriticrc --- old/SVG-2.63/.perlcriticrc 2013-08-22 11:13:01.000000000 +0200 +++ new/SVG-2.64/.perlcriticrc 2015-03-06 15:45:53.000000000 +0100 @@ -1,25 +1,33 @@ -severity = 4 +# please alpha sort config items as you add them -# Severity 5: -[-OTRS::RequireCamelCase] -[-OTRS::ProhibitSomeCoreFunctions] -[-OTRS::ProhibitLowPrecendeceOps] -[-OTRS::RequireParensWithMethods] - -# TODO? -[-ValuesAndExpressions::ProhibitAccessOfPrivateData] - -# Severity 4: -[-Bangs::ProhibitRefProtoOrProto] -[-ErrorHandling::RequireUseOfExceptions] -[-Modules::ProhibitMultiplePackages] -[-Modules::ProhibitAutomaticExportation] -[-Modules::RequireExplicitInclusion] -[-Objects::ProhibitIndirectSyntax] -[-Subroutines::RequireFinalReturn] -[-Subroutines::RequireArgUnpacking] -[-Subroutines::ProhibitCallsToUndeclaredSubs] -[-Subroutines::ProhibitCallsToUnexportedSubs] -[-Subroutines::ProhibitExportingUndeclaredSubs] -[-Subroutines::ProhibitBuiltinHomonyms] -[-ValuesAndExpressions::ProhibitConstantPragma] +severity = 5 +verbose = 11 +theme = core + +#[TestingAndDebugging::RequireUseStrict] +#equivalent_modules = Moo Dancer Dancer2 + +#[TestingAndDebugging::RequireUseWarnings] +#severity = 5 +#equivalent_modules = Moo Dancer Dancer2 + +#[-ControlStructures::ProhibitPostfixControls] +#[-Documentation::RequirePodLinksIncludeText] +#[-Documentation::RequirePodSections] +#[-Modules::RequireVersionVar] +#[-RegularExpressions::RequireDotMatchAnything] +#[-RegularExpressions::RequireExtendedFormatting] +#[-RegularExpressions::RequireLineBoundaryMatching] +#[-Variables::ProhibitPunctuationVars] +# +[CodeLayout::RequireTrailingCommas] +severity = 5 + +#[ValuesAndExpressions::ProhibitEmptyQuotes] +#severity = 5 + +[ValuesAndExpressions::ProhibitInterpolationOfLiterals] +severity = 5 + +#[ValuesAndExpressions::ProhibitNoisyQuotes] +#severity = 5 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/Changes new/SVG-2.64/Changes --- old/SVG-2.63/Changes 2015-03-06 14:58:38.000000000 +0100 +++ new/SVG-2.64/Changes 2015-06-02 07:39:24.000000000 +0200 @@ -1,5 +1,8 @@ Revision history for Perl extension SVG. +2.64 2015.06.02 + - RT #103938 SVG::DOM insertSiblingAfter calls nonexistent 'parent' method (Marius Gavrilescu) + 2.63 2015.03.06 - Move SVG results from POD to external files. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/MANIFEST new/SVG-2.64/MANIFEST --- old/SVG-2.63/MANIFEST 2015-03-06 15:00:36.000000000 +0100 +++ new/SVG-2.64/MANIFEST 2015-06-02 07:39:47.000000000 +0200 @@ -7,6 +7,7 @@ examples/03_circle_and_square.pl examples/attributeManip.pl examples/circle.pl +examples/ellipse.pl examples/image_sample.pl examples/inline_sample.pl examples/inlinesvg.pl @@ -51,6 +52,7 @@ t/22-xlink.t t/23-xmlescape.t t/30-shapes.t +t/96-perl-critic.t t/98-tidyall.t t/99_test_pod_coverage.t xt/98_all_pod.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/META.json new/SVG-2.64/META.json --- old/SVG-2.63/META.json 2015-03-06 15:00:36.000000000 +0100 +++ new/SVG-2.64/META.json 2015-06-02 07:39:47.000000000 +0200 @@ -4,7 +4,7 @@ "Ronan Oger <[email protected]>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060", + "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.150001", "license" : [ "perl_5" ], @@ -43,7 +43,7 @@ "url" : "https://github.com/szabgab/SVG"; } }, - "version" : "2.63", + "version" : "2.64", "x_contributors" : [ "Peter Wainwright", "Ian Hickson", diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/META.yml new/SVG-2.64/META.yml --- old/SVG-2.63/META.yml 2015-03-06 15:00:35.000000000 +0100 +++ new/SVG-2.64/META.yml 2015-06-02 07:39:47.000000000 +0200 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060' +generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.150001' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -22,7 +22,7 @@ parent: '0' resources: repository: https://github.com/szabgab/SVG -version: '2.63' +version: '2.64' x_contributors: - 'Peter Wainwright' - 'Ian Hickson' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/examples/ellipse.pl new/SVG-2.64/examples/ellipse.pl --- old/SVG-2.63/examples/ellipse.pl 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.64/examples/ellipse.pl 2015-03-06 14:05:00.000000000 +0100 @@ -0,0 +1,25 @@ +use strict; +use warnings; +use 5.010; + +use SVG; + +# create an SVG object +my $svg= SVG->new( width => 200, height => 200); + +my $tag = $svg->ellipse( + cx => 10, + cy => 10, + rx => 5, + ry => 7, + id => 'ellipse', + style => { + 'stroke' => 'red', + 'fill' => 'green', + 'stroke-width' => '4', + 'stroke-opacity' => '0.5', + 'fill-opacity' => '0.2', + } +); +say $svg->xmlify; + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/lib/SVG/DOM.pm new/SVG-2.64/lib/SVG/DOM.pm --- old/SVG-2.63/lib/SVG/DOM.pm 2015-03-06 14:59:47.000000000 +0100 +++ new/SVG-2.64/lib/SVG/DOM.pm 2015-06-02 07:39:09.000000000 +0200 @@ -4,7 +4,7 @@ use Scalar::Util qw/weaken/; -our $VERSION = '2.63'; +our $VERSION = '2.64'; # this module extends SVG::Element package SVG::Element; @@ -432,7 +432,8 @@ # sub insertSiblingAfter (Not in W3C DOM) sub insertSiblingAfter { my ( $self, $newChild ) = @_; - return $self->parent->insertAfter( $newChild, $self ) if $self->parent; + return $self->getParent->insertAfter( $newChild, $self ) + if $self->getParent; return 0; } @@ -440,7 +441,8 @@ # sub insertSiblingBefore (Not in W3C DOM) sub insertSiblingBefore { my ( $self, $newChild ) = @_; - return $self->parent->insertBefore( $newChild, $self ) if $self->parent; + return $self->getParent->insertBefore( $newChild, $self ) + if $self->getParent; return 0; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/lib/SVG/Element.pm new/SVG-2.64/lib/SVG/Element.pm --- old/SVG-2.63/lib/SVG/Element.pm 2015-03-06 14:59:47.000000000 +0100 +++ new/SVG-2.64/lib/SVG/Element.pm 2015-06-02 07:39:09.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '2.63'; +our $VERSION = '2.64'; =pod @@ -292,7 +292,7 @@ #>>>TBD: add -strictids option to disable this check if desired if ( $tag->{id} ) { if ( $self->getElementByID( $tag->{id} ) ) { - $self->error( $tag->{id} => "ID already exists in document" ); + $self->error( $tag->{id} => 'ID already exists in document' ); return; } } @@ -478,37 +478,37 @@ motion => 'animateMotion', color => 'animateColor', set => 'set', - attribute => 'animate' + attribute => 'animate', ); my $name = $animation_method{$method} || 'animate'; #list of legal entities for each of the 5 methods of animations my %legal = ( - animate => qq{ begin dur end min max restart repeatCount + animate => q{ begin dur end min max restart repeatCount repeatDur fill attributeType attributeName additive accumulate calcMode values keyTimes keySplines from to by }, - animateTransform => qq{ begin dur end min max restart repeatCount + animateTransform => q{ begin dur end min max restart repeatCount repeatDur fill additive accumulate calcMode values keyTimes keySplines from to by calcMode path keyPoints rotate origin type attributeName attributeType }, - animateMotion => qq{ begin dur end min max restart repeatCount + animateMotion => q{ begin dur end min max restart repeatCount repeatDur fill additive accumulate calcMode values to by keyTimes keySplines from path keyPoints rotate origin }, - animateColor => qq{ begin dur end min max restart repeatCount + animateColor => q{ begin dur end min max restart repeatCount repeatDur fill additive accumulate calcMode values - keyTimes keySplines from to by §, - set => qq§ begin dur end min max restart repeatCount repeatDur - fill to } + keyTimes keySplines from to by }, + set => q{ begin dur end min max restart repeatCount repeatDur + fill to }, ); foreach my $k ( keys %rtr ) { next if ( $k =~ /\-/ ); if ( $legal{$name} !~ /\b$k\b/ ) { - $self->error( "$name.$k" => "Illegal animation command" ); + $self->error( "$name.$k" => 'Illegal animation command' ); } } @@ -546,9 +546,9 @@ my ( $self, $name, $val ) = @_; #verify that the current id is unique. compain on exception - if ( $name eq "id" ) { + if ( $name eq 'id' ) { if ( $self->getElementByID($val) ) { - $self->error( $val => "ID already exists in document" ); + $self->error( $val => 'ID already exists in document' ); return; } } @@ -628,7 +628,7 @@ specularlighting => 'feSpecularLighting', spotlight => 'feSpotLight', tile => 'feTile', - turbulence => 'feTurbulence' + turbulence => 'feTurbulence', ); my $key = lc( $attrs{'-type'} ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/lib/SVG/Extension.pm new/SVG-2.64/lib/SVG/Extension.pm --- old/SVG-2.63/lib/SVG/Extension.pm 2015-03-06 14:59:47.000000000 +0100 +++ new/SVG-2.64/lib/SVG/Extension.pm 2015-06-02 07:39:09.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '2.63'; +our $VERSION = '2.64'; =head1 NAME @@ -20,10 +20,10 @@ use parent qw/SVG::Element/; # DTD declarations handled in this module -use constant ELEMENT => "ELEMENT"; -use constant ATTLIST => "ATTLIST"; -use constant NOTATION => "NOTATION"; -use constant ENTITY => "ENTITY"; +use constant ELEMENT => 'ELEMENT'; +use constant ATTLIST => 'ATTLIST'; +use constant NOTATION => 'NOTATION'; +use constant ENTITY => 'ENTITY'; our @TYPES = ( ELEMENT, ATTLIST, NOTATION, ENTITY ); our %TYPES = map { $_ => 1 } @TYPES; @@ -39,7 +39,7 @@ my $document = $self->{-docref}; unless ( exists $document->{-internal} ) { - $document->{-internal} = new SVG::Extension("internal"); + $document->{-internal} = new SVG::Extension('internal'); $document->{-internal}{-docref} = $document; } @@ -149,15 +149,15 @@ sub xmlify { my $self = shift; - my $decl = ""; + my $decl = q{}; if ( $self->{-name} ne 'internal' ) { - $decl = "<!"; + $decl = '<!'; SWITCH: foreach ( $self->{-name} ) { /^ELEMENT$/ and do { $decl .= "ELEMENT $self->{name}"; - $decl .= " " . $self->{model} if exists $self->{model}; + $decl .= q{ } . $self->{model} if exists $self->{model}; last SWITCH; }; @@ -166,7 +166,7 @@ $decl .= " $self->{type} " - . ( $self->{fixed} ? "#FIXED " : "" ) + . ( $self->{fixed} ? '#FIXED ' : q{} ) . $self->{default}; last SWITCH; @@ -174,13 +174,13 @@ /^NOTATION$/ and do { $decl .= "NOTATION $self->{name}"; - $decl .= " " . $self->{base} if exists $self->{base}; + $decl .= q{ } . $self->{base} if exists $self->{base}; if ( exists $self->{pubid} ) { $decl .= "PUBLIC $self->{pubid} "; - $decl .= " " . $self->{sysid} if exists $self->{sysid}; + $decl .= q{ } . $self->{sysid} if exists $self->{sysid}; } elsif ( exists $self->{sysid} ) { - $decl .= " SYSTEM " . $self->{sysid} + $decl .= ' SYSTEM ' . $self->{sysid} if exists $self->{sysid}; } @@ -188,8 +188,8 @@ }; /^ENTITY$/ and do { $decl - .= "ENTITY " - . ( $self->{isp} ? "% " : "" ) + .= 'ENTITY ' + . ( $self->{isp} ? '% ' : q{} ) . $self->{name}; if ( exists $self->{value} ) { @@ -197,13 +197,13 @@ } elsif ( exists $self->{pubid} ) { $decl .= "PUBLIC $self->{pubid} "; - $decl .= " " . $self->{sysid} if exists $self->{sysid}; - $decl .= " " . $self->{ndata} if $self->{ndata}; + $decl .= q{ } . $self->{sysid} if exists $self->{sysid}; + $decl .= q{ } . $self->{ndata} if $self->{ndata}; } else { - $decl .= " SYSTEM " . $self->{sysid} + $decl .= ' SYSTEM ' . $self->{sysid} if exists $self->{sysid}; - $decl .= " " . $self->{ndata} if $self->{ndata}; + $decl .= q{ } . $self->{ndata} if $self->{ndata}; } last SWITCH; @@ -213,10 +213,10 @@ $decl .= "$self->{-name} $self->{name}"; }; } - $decl .= ">" . $self->{-docref}{-elsep}; + $decl .= '>' . $self->{-docref}{-elsep}; } - my $result = ""; + my $result = q{}; if ( $self->hasChildren ) { $self->{-docref}->{-level}++; foreach my $child ( $self->getChildren ) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/lib/SVG/XML.pm new/SVG-2.64/lib/SVG/XML.pm --- old/SVG-2.63/lib/SVG/XML.pm 2015-03-06 14:59:47.000000000 +0100 +++ new/SVG-2.64/lib/SVG/XML.pm 2015-06-02 07:39:09.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '2.63'; +our $VERSION = '2.64'; =pod @@ -63,12 +63,12 @@ # Invalid XML characters are removed, not just escaped: \x00-\x08\x0b\x1f # Tabs (\x09) and newlines (\x0a) are valid. while ( $s =~ s/([\x00-\x08\x0b\x1f])/''/e ) { - my $char = "'\\x" . sprintf( '%02X', ord($1) ) . "'"; - $self->error( $char => "This forbidden XML character was removed" ); + my $char = q{'\\x} . sprintf( '%02X', ord($1) ) . q{'}; + $self->error( $char => 'This forbidden XML character was removed' ); } # Per suggestion from Adam Schneider - $s =~ s/([\200-\377])/'&#'.ord($1).';'/ge; + $s =~ s/([\200-\377])/' & #'.ord($1).';'/ge; return $s; } @@ -163,14 +163,16 @@ #>>>TBD: add internal() method to return this my $extension - = ( exists $self->{-internal} ) ? $self->{-internal}->render() : ""; + = ( exists $self->{-internal} ) + ? $self->{-internal}->render() + : q{}; if ( exists $self->{-extension} and $self->{-extension} ) { $extension .= $self->{-docref}{-elsep} . $self->{-extension} . $self->{-docref}{-elsep}; } - $extension = " [" . $self->{-docref}{-elsep} . $extension . "]" + $extension = ' [' . $self->{-docref}{-elsep} . $extension . ']' if $extension; return qq[$self->{-docref}{-elsep}<!DOCTYPE $at$extension>]; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/lib/SVG.pm new/SVG-2.64/lib/SVG.pm --- old/SVG-2.63/lib/SVG.pm 2015-03-06 14:59:47.000000000 +0100 +++ new/SVG-2.64/lib/SVG.pm 2015-06-02 07:39:09.000000000 +0200 @@ -7,7 +7,7 @@ use parent qw(SVG::Element SVG::Extension); use Scalar::Util qw/weaken/; -our $VERSION = '2.63'; +our $VERSION = '2.64'; =pod @@ -91,7 +91,7 @@ =head2 Converting SVG to PNG and other raster image formats -The B<convert> command of L<http://www.imagemagick.org/> (also via L<Image::Magic> ) can convert SVG files to PNG +The B<convert> command of L<http://www.imagemagick.org/> (also via L<Image::Magick> ) can convert SVG files to PNG and other formats. L<Image::LibRSVG> can convert SVG to other format. @@ -1280,7 +1280,7 @@ -xml_svg => 'http://www.w3.org/2000/svg', -xml_xlink => 'http://www.w3.org/1999/xlink', -standalone => 'yes', - -pubid => "-//W3C//DTD SVG 1.0//EN", # formerly -identifier + -pubid => '-//W3C//DTD SVG 1.0//EN', # formerly -identifier -sysid => 'http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd', ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/t/11-customtags.t new/SVG-2.64/t/11-customtags.t --- old/SVG-2.63/t/11-customtags.t 2015-02-17 08:59:17.000000000 +0100 +++ new/SVG-2.64/t/11-customtags.t 2015-03-06 16:01:25.000000000 +0100 @@ -6,13 +6,10 @@ my $svg = SVG->new; -ok( - eval { - $svg->star( id => "Sol" )->planet( id => "Jupiter" ) - ->moon( id => "Ganymede" ); - }, - "defined custom tags" -); - +$svg->star( id => "Sol" )->planet( id => "Jupiter" ) + ->moon( id => "Ganymede" ); +like $svg->xmlify, + qr{<star id="Sol">\s+<planet id="Jupiter">\s+<moon id="Ganymede" />\s+</planet>\s+</star>}, + 'stars and planets'; ok( !eval { $svg->asteriod( id => "Ceres" ); }, "undefined custom tag" ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/t/16-siblings.t new/SVG-2.64/t/16-siblings.t --- old/SVG-2.63/t/16-siblings.t 2015-02-17 08:59:17.000000000 +0100 +++ new/SVG-2.64/t/16-siblings.t 2015-06-02 07:31:10.000000000 +0200 @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 3; +use Test::More tests => 4; use SVG; # test: getFirstChild, getLastChild, getParent, getChildren @@ -15,3 +15,5 @@ is( $child1->getNextSibling(), $child2, "getNextSibling" ); is( $child2->getPreviousSibling(), $child1, "getPreviousSibling" ); +$child2->insertSiblingAfter($child1); +is( $child2->getNextSibling(), $child1, "insertSiblingAfter" ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/SVG-2.63/t/96-perl-critic.t new/SVG-2.64/t/96-perl-critic.t --- old/SVG-2.63/t/96-perl-critic.t 1970-01-01 01:00:00.000000000 +0100 +++ new/SVG-2.64/t/96-perl-critic.t 2015-03-06 16:04:22.000000000 +0100 @@ -0,0 +1,25 @@ +use strict; +use warnings; +use Test::More; + +## no critic +#use Perl::Critic; +eval 'use Test::Perl::Critic 1.02'; +plan skip_all => 'Test::Perl::Critic 1.02 required' if $@; + +# NOTE: New files will be tested automatically. + +# FIXME: Things should be removed (not added) to this list. +# Temporarily skip any files that existed before adding the tests. +# Eventually these should all be removed (once the files are cleaned up). +my %skip = map { ( $_ => 1 ) } qw( +); + +my @files = grep { !$skip{$_} } + ( Perl::Critic::Utils::all_perl_files(qw( bin lib )) ); # TODO t + +foreach my $file (@files) { + critic_ok( $file, $file ); +} + +done_testing(); ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module
