#!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]

Hi Khen1950fx, thanks for your response. My AUTOLOAD is in AutoLoader.pm and not in my own code. Do I need to define it in MyOwnTable or A or both ? I tried defining it in both A and MyOwnTable (like you did in CD::Music) along with the empty DESTROY subroutine, but I'm still receiving the error/warning. :( thanks, Michael

Stop over-using inheritance from classes that over-use inheritance so that you end up inheriting from AutoLoader for no good reason. (Did you also know that your MyOwnTable "isa" Exporter and your A "isa" Exporter? Did you want them to be?)

File a bug against the Data::Table module asking that the author remove the "require AutoLoader;" line from his module since AutoLoader's documentation notes:

To use AutoLoader, the author of a module has to place the definitions of subroutines to be autoloaded after an __END__ token.

and the source code for Data/Table.pm has no sub definitions after the __END__ token.

Perhaps ask that author where the "require AutoLoader;" line came from so perhaps some documentation or "help me write a module" tool could be updated to not encourage such inanity.

Pointed the author to this thread, 1.68 is now on its way to CPAN. Will follow up to see if the author remembers why that was in there (boilerplate?).

Update: Author thinks it was a cut-n-paste from another module. Doesn't remember exactly where it was originally from.

--MidLifeXis

Thank you for your response, tye, I appreciate your help. Contacting the author might be a challenging option that would most likely not yield timely results. Any other workarounds/hacks/suggestions ? Regards, Michael

Any other workarounds/hacks/suggestions ?

Locate Date/Table.pm and remove that line from your copy