Select Code to Download

#!/usr/bin/perl
use strict;
...
          };

print Dumper($var);

$VAR1 = {
          'first'  => undef,
          'second' => undef,
        };

$VAR1 = {
          'first' => 'second'
        };

    return unless defined($name) && $self->{$name};

    return undef unless defined($name) && $self->{$name};