#!/usr/bin/perl

use strict;
package Dummy;
sub test { print "one\n"; }

package main;
use Class::AppendMethods 'append_method';
append_method("Dummy::test", "post_test");
sub post_test { print "two\n"; }
Dummy::test;

##</code><code>##

one
Undefined subroutine &Class::AppendMethods::post_test called at /home/matt/Class/AppendMethods.pm line 43.

##</code><code>##

append_method("Dummy::test", "main::post_test");

##</code><code>##

append_method("Dummy::test", \&post_test);