package blort;

sub add_method {
    my $name = shift;
    ## Do some Magic
}

...

use blort;

blort::add_method('foo');
blort::foo();