#!/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;