Select Code to Download

package Your::Class;
our $VERSION= 1.001_001;
...
    ...
    $self->[_NAME]= ...;
}

...
package Your::CLass::_Implementation;
...
            'Your::Class:_Implementation', $method );
    }
}

package Your::Class;
...
...
sub C'Index() { 0; }
sub C'Name() { 1; } # Boom!
...