Skip Menu |

This queue is for tickets about the Perl-MinimumVersion CPAN distribution.

Report information
The Basics
Id: 63944
Status: rejected
Priority: 0/
Queue: Perl-MinimumVersion

Owner: Nobody in particular
Requestors: dean [...]

Bug Information
Severity: Wishlist
Broken in: 1.26
Fixed in: (no value)

Subject: v5.010 say
Download (untitled) / with headers
text/plain 264b
Patch and tests to try to match v5010 say(). Does not flag the following: use Foo "say"; say "Bar"; use Foo qw/ say /; say "Bar"; sub say; say "Bar"; sub say { print @_, "\n" } say "Bar"; Not much can be done about this though: use AutoExportedSay; say "Foo";
Subject: v5010_say.t
Download v5010_say.t
text/x-perl 729b
#!/usr/bin/perl -w use strict; BEGIN { $| = 1; $^W = 1; } use Test::More; #use version; use Perl::MinimumVersion; my @examples_not=( q{use Foo "say"; say "Bar"}, q{use Foo qw/ say /; say "Bar"}, q{sub say; say "Bar"}, q{sub say { print @_, "\n" } say "Bar"}, ); my @examples_yes=( q{say "Foo"}, q{use AutoExportedSay; say "Foo"}, ); plan tests =>(@examples_not+@examples_yes); foreach my $example (@examples_not) { my $p = Perl::MinimumVersion->new(\$example); is( $p->_perl_5010_say, '', $example ) or do { diag "\$\@: $@" if $@ }; } foreach my $example (@examples_yes) { my $p = Perl::MinimumVersion->new(\$example); ok( $p->_perl_5010_say, $example ) or do { diag "\$\@: $@" if $@ }; }
Subject: patch
Download patch
application/octet-stream 1k

Message body not shown because it is not plain text.

Download (untitled) / with headers
text/plain 265b
On Wed Dec 15 10:16:35 2010, wrote: Show quoted text
> Patch and tests to try to match v5010 say().
There is no need to detect "say", because it requires activation with "use 5.010" (or earlier) or "use feature 'say'". -- Alexandr Ciornii,

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to