view release on metacpan or  search on metacpan

lib/Acme/LastWords.pm  view on Meta::CPAN

    "Mozart!", # Gustav Mahler
    "I'm going, but I'm going in the name of the Lord.", # Bessie Smith
    "I'm losing it.", # Frank Sinatra
    "At fifty, everyone has the face he deserves.", # George Orwell
    "A party! Let’s have a party.", # Margaret Sanger
    # TODO: add more
);

sub new {
    my $class = shift;
    bless [$_[0]], $class;
}

sub DESTROY {
    print +(defined $_[0][0] ? $_[0][0] : $words[rand @words]), "\n";
}

1;
# ABSTRACT: Object that prints some famous last words when destroyed

__END__