Put an empty DESTROY subroutine after AUTOLOAD and the problem goes away.

#!perl -w

package CD::Music;
use strict;

use vars '$AUTOLOAD';    

sub AUTOLOAD {
    my ($self) = @_;
    $AUTOLOAD     =~ /.*::get(_\w+)/
        or die "No such method: $AUTOLOAD";
    exists $self->{$1}
        or die "No such attribute: $1";
    return $self->{$1}
}    

sub DESTROY { }

{
    my $_count = 0;
    sub get_count        { $_count }
    my $_incr_count = sub { ++$_count };

sub new {

    my ($class) = @_;
    $_incr_count->();
    bless {
        _name         => $_[1],
        _artist        => $_[2],
        _publisher    => $_[3],
        _ISBN        => $_[4],
        _tracks        => $_[5],
        _room        => $_[6],
        _shelf        => $_[7],
        _rating        => $_[8],
    }, $class;
}

sub get_location { ($_[0]->{_room}, $_[0]->{_shelf}) }

sub set_location {
    my ($self, $shelf, $room) = @_;
    $self->{_room} = $room    if $room;
    $self->{_shelf} = $shelf if $shelf;
    return ($self->{_room}, $self->{_shelf});
}

sub set_rating {
    my ($self, $rating) = @_;
    $self->{_rating} = $rating if defined $rating;
    return $self->{_rating};
}
}

package main;

my $cd = CD::Music->new( "Canon in D", "Pachelbel", "Boering Mu\u00df 
+GmbH", "1729-67836847-1", 1, 8, 8, 5.0);
print $cd->get_name, ", ", $cd->get_publisher, "\n";
printf "Room %s, shelf %s\n", $cd->get_location;
$cd->set_location(5,3);
print CD::Music->get_count, "\n";
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.