Select Code to Download

package My::ABC

...
    is  => 'rw',
    isa => 'My::DEF',
);

around 'db_accessor => sub {
    my $orig = shift;
...
        return $out;
    }
};