-----------------------------
#!/usr/bin/perl
package XYZ;
use strict;

sub abc :hold
{
}

sub MODIFY_CODE_ATTRIBUTES
{
    my ($pack,$ref,$attrs) = @_;
    ();
}

sub FETCH_CODE_ATTRIBUTES
{
    return ('hold');
}


1;
__END__