Select Code to Download

package DTF::Transfer;
use strict;
...
    my $self = shift;
    die scalar(keys %$self);
};

after 'BUILD' => sub
{
...
    );
    die;
};