Select Code to Download

sub new {
    return bless {}, shift;
...
    my ($x, $y) = @_;
    return $x + $y;
}

my $res = Module->add(1, 2);

...
my $mod = 'Module';

my $res = $mod->add(1, 2);

my $mod = 'My::Long::Module::Name';

...
}

# etc