]> git.vpit.fr Git - perl/modules/B-RecDeparse.git/commitdiff
Switch to qw<>
authorVincent Pit <vince@profvince.com>
Sun, 27 Feb 2011 00:55:51 +0000 (01:55 +0100)
committerVincent Pit <vince@profvince.com>
Sun, 27 Feb 2011 00:55:51 +0000 (01:55 +0100)
lib/B/RecDeparse.pm
samples/brd.pl
t/02-can.t
t/10-obj.t
t/12-level.t
t/13-prototypes.t
t/14-refs.t
t/15-pkg.t

index c5c5fa9be3fa40732248c2fe3b6a65bb220a1a48..213b640ba6570858c34a5ffaa91983595263b06f 100644 (file)
@@ -9,7 +9,7 @@ use B ();
 
 use Config;
 
-use base qw/B::Deparse/;
+use base qw<B::Deparse>;
 
 =head1 NAME
 
@@ -187,7 +187,7 @@ sub pp_gv {
   $body = $self->SUPER::pp_gv(@_);
  } else {
   $body = do {
-   local @{$self}{qw/brd_sub brd_cur/} = (0, $self->{brd_cur} + 1);
+   local @{$self}{qw<brd_sub brd_cur>} = (0, $self->{brd_cur} + 1);
    local $seen->{$name} = 1;
    'sub ' . $self->indent($self->deparse_sub($gv->CV));
   };
index bd0f7e32eacf3f7897e4ceb3dc2f56238a1f0820..f49a8eb0e0951e698de6b728b01356a2d75a5b23 100755 (executable)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use lib qw{blib/lib};
+use lib qw<blib/lib>;
 use B::RecDeparse;
 
 my $deparser = B::RecDeparse->new(deparse => [ '-sCi0v1' ], level => 1);
index b2ba12a2e3dd929a53837f9e89574aab7a58ab63..8edd47d103e60e0db3e34222e9e4b9ff5f9e4a6f 100644 (file)
@@ -7,6 +7,6 @@ use Test::More tests => 6;
 
 require B::RecDeparse;
 
-for (qw/new init pp_gv pp_entersub pp_const coderef2text/) {
+for (qw<new init pp_gv pp_entersub pp_const coderef2text>) {
  ok(B::RecDeparse->can($_), 'BRD can ' . $_);
 }
index 1a2695ec00493c728c83110903269e7554f3fc58..49f3dc7e5e11d5518205ceb6bad7d9f895ec9688 100644 (file)
@@ -22,5 +22,5 @@ ok(defined $brd3, 'BRD::new called as a function works ');
 is(ref $brd3, 'B::RecDeparse', 'BRD::new called as a functions returns a B::RecDeparse object');
 ok($brd3->isa('B::Deparse'), 'BRD is a BD');
 
-eval { $brd2 = new B::RecDeparse qw/a b c/ };
+eval { $brd2 = new B::RecDeparse qw<a b c> };
 like($@, qr/Optional\s+arguments/, 'BRD::new gets parameters as key => value pairs');
index 9ac53b4adef862cd2051e3eb5a4c3de2f10a70d3..4d4a5a7872b57ccde567bdb234c2d4441f40f7c1 100644 (file)
@@ -30,19 +30,19 @@ sub which {
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => [ $br_args ], level => -1);
-which $brd, [ ], [ qw/add mul fma/ ], -1;
+which $brd, [ ], [ qw<add mul fma> ], -1;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 0);
-which $brd, [ qw/fma/ ], [ qw/add mul/ ], 0;
+which $brd, [ qw<fma> ], [ qw<add mul> ], 0;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 1);
-which $brd, [ qw/add mul/ ], [ qw/fma/ ], 1;
+which $brd, [ qw<add mul> ], [ qw<fma> ], 1;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 2);
-which $brd, [ ], [ qw/add mul fma/ ], 2;
+which $brd, [ ], [ qw<add mul fma> ], 2;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 3);
-which $brd, [ ], [ qw/add mul fma/ ], 2;
+which $brd, [ ], [ qw<add mul fma> ], 2;
 
 sub fakegv { return @_ }
 eval { $brd->coderef2text(sub { return fakegv() }) };
index f33d81d54a9802da8b2f7eb168ad90646fb4a4e2..970c8a5daa936d55187b7156c0be047f22295783 100644 (file)
@@ -30,16 +30,16 @@ sub which {
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => [ $br_args ], level => -1);
-which $brd, [ ], [ qw/add mul fma/ ], -1;
+which $brd, [ ], [ qw<add mul fma> ], -1;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 0);
-which $brd, [ qw/fma/ ], [ qw/add mul/ ], 0;
+which $brd, [ qw<fma> ], [ qw<add mul> ], 0;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 1);
-which $brd, [ qw/add mul/ ], [ qw/fma/ ], 1;
+which $brd, [ qw<add mul> ], [ qw<fma> ], 1;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 2);
-which $brd, [ ], [ qw/add mul fma/ ], 2;
+which $brd, [ ], [ qw<add mul fma> ], 2;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 3);
-which $brd, [ ], [ qw/add mul fma/ ], 2;
+which $brd, [ ], [ qw<add mul fma> ], 2;
index 21c4607fb0ac0c898f5c43ca75db9671fca1e0b4..33dc86a903f78dcfecbbb4700cd20961bf2c2473 100644 (file)
@@ -37,17 +37,17 @@ sub which {
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => $br_args, level => -1);
-which $brd, \&foo, [ ], [ qw/add dummy/ ], [ qw/add call/ ], [ ], -1;
-which $brd, \&bar, [ ], [ qw/add call/ ], [ qw/add call/ ], [ ], -1;
+which $brd, \&foo, [ ], [ qw<add dummy> ], [ qw<add call> ], [ ], -1;
+which $brd, \&bar, [ ], [ qw<add call> ], [ qw<add call> ], [ ], -1;
 
 $brd = B::RecDeparse->new(deparse => $br_args, level => 0);
-which $brd, \&foo, [ qw/call/ ], [ qw/add/ ], [ qw/add/ ], [ qw/dummy/ ], 0;
-which $brd, \&bar, [ ], [ qw/add call/ ], [ qw/add/ ], [ qw/dummy/ ], 0;
+which $brd, \&foo, [ qw<call> ], [ qw<add> ], [ qw<add> ], [ qw<dummy> ], 0;
+which $brd, \&bar, [ ], [ qw<add call> ], [ qw<add> ], [ qw<dummy> ], 0;
 
 $brd = B::RecDeparse->new(deparse => $br_args, level => 1);
-which $brd, \&foo, [ ], [ qw/add dummy/ ], [ qw/add call/ ], [ ], 1;
-which $brd, \&bar, [ ], [ qw/add call/ ], [ qw/add call/ ], [ ], 1;
+which $brd, \&foo, [ ], [ qw<add dummy> ], [ qw<add call> ], [ ], 1;
+which $brd, \&bar, [ ], [ qw<add call> ], [ qw<add call> ], [ ], 1;
 
 $brd = B::RecDeparse->new(deparse => $br_args, level => 2);
-which $brd, \&foo, [ ], [ qw/add dummy/ ], [ qw/add call/ ], [ ], 2;
-which $brd, \&bar, [ ], [ qw/add call/ ], [ qw/add call/ ], [ ], 2;
+which $brd, \&foo, [ ], [ qw<add dummy> ], [ qw<add call> ], [ ], 2;
+which $brd, \&bar, [ ], [ qw<add call> ], [ qw<add call> ], [ ], 2;
index ac1c241ab1df211634aaa81c30bebbcb44036c94..3195d65ce96a5c5f6dc22cde4cfb13bfd4c454ef 100644 (file)
@@ -30,16 +30,16 @@ sub which {
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => [ $br_args ], level => -1);
-which $brd, [ ], [ qw/Hlagh::add mul Dongs::fma/ ], -1;
+which $brd, [ ], [ qw<Hlagh::add mul Dongs::fma> ], -1;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 0);
-which $brd, [ qw/fma/ ], [ qw/Hlagh::add mul/ ], 0;
+which $brd, [ qw<fma> ], [ qw<Hlagh::add mul> ], 0;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 1);
-which $brd, [ qw/add mul/ ], [ qw/Dongs::fma/ ], 1;
+which $brd, [ qw<add mul> ], [ qw<Dongs::fma> ], 1;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 2);
-which $brd, [ ], [ qw/Hlagh::add mul Dongs::fma/ ], 2;
+which $brd, [ ], [ qw<Hlagh::add mul Dongs::fma> ], 2;
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 3);
-which $brd, [ ], [ qw/Hlagh::add mul Dongs::fma/ ], 2;
+which $brd, [ ], [ qw<Hlagh::add mul Dongs::fma> ], 2;