File Coverage

blib/lib/WebService/PagerDuty/Base.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	2	2	100.0
total	41	41	100.0

#!/usr/bin/env perl -w

## workaround for PkgVersion
## no critic
package WebService::PagerDuty::Base;
{
  $WebService::PagerDuty::Base::VERSION = '1.20131219.1627';
}
## use critic
use strict;
use warnings;
use Class::Accessor;

use base qw/ Class::Accessor /;

__PACKAGE__->mk_ro_accessors(qw/ _defaults _init_args /);

sub new {
    my $self = shift;
    my $args = {@_};    # copy
    $args->{_defaults} = {} unless exists $args->{_defaults};
    my $init = {%$args};    # copy
    delete $init->{_defaults};
    $self->SUPER::new( { _init_args => $init, %$args } );
}

sub get {
    my $self  = shift;
    my $field = shift;

    my $defaults  = $self->{_defaults};
    my $init_args = $self->{_init_args};

    if ( !exists( $init_args->{$field} ) && exists( $defaults->{$field} ) ) {
        $init_args->{$field} = 'lazy_build';
        $self->{$field}      = $defaults->{$field}->($self);
    }
    else {
        $self->SUPER::get( $field, @_ );
    }
}

1;

__END__