Select Code to Download

package My::Class;
use warnings;
...
        # do stuff
    }
}

use My::Class;

...
my $object = My::Class->new(%args);

$object->swear('damnit');

$object->swear('damnit');

swear($object, 'damnit');

$VAR1 = [
    bless( {}, 'My::Class' ),
    'damnit',
];