package Foo;
use parent 'CAM::PDF';
use Class::Method::Modifiers;

around 'setObjNum' => sub {
    my $orig = shift;
    my $ret = $orig->(@_);
    # frob…
    return ...;
};