Select Code to Download

$ perl -e '1->method'
Can't call method "method" without a package or object reference at -e
+ line 1.

my $result = $obj->methoda->methodb->methodc;

package Object::EveryMethod;

...
sub new { $all }

sub AUTOLOAD { $_[0] }

# my $False = 0;  # old way
my $False = Object::EveryMethod->new();
...
    else                        { $False }
    
    }

sub hey_that_worked
    {
    not UNIVERSAL::isa( $_[0], 'Object::EveryMethod' )
    }

package Object::EveryMethod;

...
sub AUTOLOAD { $_[0] }

sub what_happened { @{ $self }{ qw( message setter ) } }

sub methoda
    {
...
        }
    
    }

package Object::EveryMethod;

...
sub can      { 1 }

sub what_happened { @{ $self }{ qw( message setter ) } }

package Object::EveryMethod;

...
sub can      { 0 unless defined &{$_[1]} }

sub what_happened { @{ $self }{ qw( message setter ) } }