File Coverage

blib/lib/Class/Accessor/Contextual.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	4	6	66.6
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	22	25	88.0

package Class::Accessor::Contextual;

use warnings;
use strict;

=head1 NAME

Class::Accessor::Contextual - Context-aware accessors

=cut

our $VERSION = '0.01';

=head1 SYNOPSIS

 package Farm;
 use base qw/Class::Accessor::Contextual/;

 Farm->mk_accessors(qw/animals names/);

 my $farm = Farm->new();

 $farm->animals([qw/horse pig owl/]);

 print join ' ', $farm->animals;

 # horse pig owl

 $farm->names({
    horse => "Mr. Ed",
    pig   => "Miss Piggy",
    owl   => "Dr. Who"});

 my %name_hash = $farm->names;

=head1 DESCRIPTION

This class overrides Class::Accessor's get() method
so that references to arrays or hashes will automatically
be dereferenced when called in list context.

=head1 AUTHOR

Brian Duggan, C<<  >>

=head1 SEE ALSO

Class::Accessor

=head1 COPYRIGHT & LICENSE

Copyright 2009 Brian Duggan.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

=cut

use base 'Class::Accessor';

sub get {
    my $got = shift->SUPER::get(@_);
    return $got unless wantarray;
    return @$got if ref($got) eq 'ARRAY';
    return %$got if ref($got) eq 'HASH';
    return $got;
}

1;