File Coverage

blib/lib/Finance/CaVirtex/API/DefaultPackage.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	4	4	100.0
condition			n/a
subroutine	7	8	87.5
pod	0	4	0.0
total	33	39	84.6

package Finance::CaVirtex::API::DefaultPackage;
# This is just some defaults that most Packages will want to use as a base...

use 5.014002;
use strict;
use warnings;

our $VERSION = '0.01';

# You will want to add these to the package that inherits this one...
use constant ATTRIBUTES => qw();
sub attributes { ATTRIBUTES }

sub new { (bless {} => shift)->init(@_) }
sub init {
    my $self = shift;
    my %args = @_;
    foreach my $attribute ($self->attributes) {
        $self->$attribute($args{$attribute}) if exists $args{$attribute};
    }
    return $self;
}

# this method simply makes all the get/setter attribute methods below very tidy...
sub get_set {
   my $self      = shift;
   my $attribute = ((caller(1))[3] =~ /::(\w+)$/)[0];
   $self->{$attribute} = shift if scalar @_;
   return $self->{$attribute};
}

1;

__END__