Select Code to Download

sub new {
    my ($class, $hash) = @_;
...
    die (0);
    return $this;
}

$VAR1 = bless( {
                 'dirty' => {
...
                            },
                 'clean' => $VAR1->{'dirty'}
               }, 'Edges' );