Help for this page

Select Code to Download

Select or download this

sub DESTROY {
    my $id = refaddr shift;
    delete $_->{ $id} for \ ( %street, %city, %state, %zip);
}

Select or download this

#class Address (Alter-based)
package Address;
...
}

1;