and the output was as follows :perl -I ~/lib/ -MCC2::Schema::BirthdayCardList -MClass::ISA -le 'for ( +Class::ISA::super_path( "CC2::Schema::BirthdayCardList" )) { print "\ +$_ is : $_"; print "I have the method, add_to_birthday_cards\n" if $_ +->can("add_to_birthday_cards") }'
That is none of them have a so called method. However if I run this :$_ is : Local::CMSDBIx $_ is : DBIx::Class::InflateColumn::DateTime $_ is : DBIx::Class::InflateColumn $_ is : DBIx::Class::Row $_ is : DBIx::Class::Core $_ is : DBIx::Class::Relationship $_ is : DBIx::Class::Relationship::Helpers $_ is : DBIx::Class::Relationship::HasMany $_ is : DBIx::Class::Relationship::HasOne $_ is : DBIx::Class::Relationship::BelongsTo $_ is : DBIx::Class::Relationship::ManyToMany $_ is : DBIx::Class::Relationship::Accessor $_ is : DBIx::Class::Relationship::CascadeActions $_ is : DBIx::Class::Relationship::ProxyMethods $_ is : DBIx::Class::Relationship::Base $_ is : DBIx::Class::PK::Auto $_ is : DBIx::Class::PK $_ is : DBIx::Class::ResultSourceProxy::Table $_ is : DBIx::Class::ResultSourceProxy $_ is : DBIx::Class $_ is : DBIx::Class::Componentised $_ is : Class::C3::Componentised $_ is : Class::Accessor::Grouped
it prints "Yes.....". So what is magical here ?perl -I ~/lib/ -MCC2::Schema::BirthdayCardList -le 'print "Yes.....\n" + if CC2::Schema::BirthdayCardList->can("add_to_birthday_cards")'
In reply to "Method is not in the class but it is there!" by shak380
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |