Select Code to Download

sub new {
        my $class = shift;
...
sub baz {
        # actually verify input data here
}

        foreach ( keys %args ) {
                if( exists $hash{ '_' . $_ } ) {
                        $self->{ $_ } = $args{ $_ };
                }
        }