use strict;
use warnings;
use strict;

package Abc;

sub new {
    return bless {}, shift;
}

sub attrib1 { 1  }
sub attrib2 { 10 }


package main;

my $abc = Abc->new ();

for my $methName (qw(attrib1 attrib2 attrib3)) {
    next unless my $meth = $abc->can ($methName);
    print "Can $methName: ", $meth-> (), "\n";
}