/usr/local/CPAN/Audio-DB/Audio/DB/DataTypes/ArtistList.pm

• package Audio::DB::DataTypes::ArtistList
  • artists
• EOF

package Audio::DB::DataTypes::ArtistList;

use strict 'vars';
use Audio::DB::DataTypes::Artist;

use vars '@ISA';
@ISA = qw/Audio::DB::DataTypes::Artist/;


# THIS COULD BE FURTHER ABSTRACTED INTO A SINGLE LIST OBJECT
# FOR ALL TYPES

sub artists {
  my $self = shift;
  my @artists = @{$self->{artists}};
  return (wantarray ? @artists : \@artists);
}

1;