canの使い方

methodなかったらundef返すとかそういう使い方

cancam.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

use v5.12;

{

    package Powawa;

    sub powapowa {
        # nothing code; 
    }

  }

for my $hoge (qw/powapowa popo popopo/) {

    my $code = Powawa->can("$hoge");

    print Dumper $code;

    if ( defined($code) ) {

        print "$hogeメソッドを見つけたよ。\n\n";

    }
    else {

        print "$hogeメソッドは見つからなかったよ。\n\n";

    }

}

__DATA__

$VAR1 = sub { "DUMMY" };
powapowaメソッドを見つけたよ。

$VAR1 = undef;
popoメソッドは見つからなかったよ。

$VAR1 = undef;
popopoメソッドは見つからなかったよ。