#生存戦略 、それは

P

13:17 |

みんな use Data::Dumper; dumper $obj; って書いてるのかなぁ。めどいので

use P;p $obj;

とかしてるよ。。vim からの perl 起動は perl -MP しててどこでも p で書けるようにしてる。そんな方法旧世代だよ！！！というのでしたらうまい方法教えて＞＜

package P;
use strict;
use warnings;
use Data::Dumper;
use Exporter;
use base qw/Exporter/;

our @EXPORT = qw/inspect p pw/;
our @EXPORT_OK = qw/inspect p pw/;

sub inspect {
   return Data::Dumper::Dumper([@_]);
}

sub p {
    print inspect @_;
}

sub pw {
    warn inspect @_;
}

1;