use strict;
use warnings;
-use Carp qw/croak/;
+use Carp qw<croak>;
use Filter::Util::Call;
-use Text::Balanced qw/extract_variable extract_quotelike extract_multiple/;
-use Scalar::Util qw/refaddr set_prototype/;
+use Text::Balanced qw<extract_variable extract_quotelike extract_multiple>;
+use Scalar::Util qw<refaddr set_prototype>;
-use Sub::Prototype::Util qw/flatten wrap/;
+use Sub::Prototype::Util qw<flatten wrap>;
=head1 NAME
];
my %skip;
-$skip{$_} = 1 for qw/my our local sub do eval goto return
+$skip{$_} = 1 for qw<my our local sub do eval goto return
if else elsif unless given when or and
while until for foreach next redo last continue
eq ne lt gt le ge cmp
map grep system exec sort print say
new
- STDIN STDOUT STDERR/;
+ STDIN STDOUT STDERR>;
-my @core = qw/abs accept alarm atan2 bind binmode bless caller chdir chmod
+my @core = qw<abs accept alarm atan2 bind binmode bless caller chdir chmod
chomp chop chown chr chroot close closedir connect cos crypt
dbmclose dbmopen defined delete die do dump each endgrent
endhostent endnetent endprotoent endpwent endservent eof eval
sqrt srand stat study sub substr symlink syscall sysopen sysread
sysseek system syswrite tell telldir tie tied time times
truncate uc ucfirst umask undef unlink unpack unshift untie use
- utime values vec wait waitpid wantarray warn write/;
+ utime values vec wait waitpid wantarray warn write>;
my %core;
$core{$_} = prototype "CORE::$_" for @core;
use strict;
use warnings;
-use Benchmark qw/cmpthese/;
+use Benchmark qw<cmpthese>;
use lib 'blib/lib';
my $counter;
-my @poultry = (qw/cock chick/);
+my @poultry = (qw<cock chick>);
sub Duck::quack { $counter += $_[0]->{id} * $_[0] }
sub fly { $counter += $_[0]; }
load_or_skip_all('Pod::Coverage', '0.18' );
all_pod_coverage_ok(
- { also_private => [ qr/import$/, qw/code corewrap subwrap defer/ ] }
+ { also_private => [
+ qr/import$/,
+ qw<code corewrap subwrap defer>,
+ ] }
);