File Coverage

blib/lib/Tropo/WebAPI/Base.pm

Criterion	Covered	Total	%
statement	33	35	94.2
branch	2	4	50.0
condition	4	12	33.3
subroutine	8	8	100.0
pod	0	2	0.0
total	47	61	77.0

package Tropo::WebAPI::Base;

# ABSTRACT: Base class for Web-API part of Tropo API

use strict;
use warnings;

use Moo;
use Types::Standard qw(HashRef);
use Class::Method::Modifiers qw(install_modifier);

has attr => (
    is      => 'rw',
    isa     => HashRef,
    default => sub { {} },
);

sub register {
    my $class = caller;

    install_modifier( $class, 'around', 'has', sub {
        my $orig  = shift;
        my $name  = shift;
        my %attrs = @_;

        $orig->( $name, @_, trigger => sub {
            my $self = shift;

            $self->{attr}->{$name}  = $attrs{isa};
        } );
    });
}

sub to_hash {
    my ($self) = @_;

    my %hash;

    ATTR:
    for my $attr ( keys %{ $self->attr } ) {
        my $method = $self->can( $attr );

        next ATTR if !$method;

        my $value  = $self->$method();

        if (
         !defined $value
         || ( ref $value eq 'ARRAY' and !defined $value->[0] )
         || ( ref $value eq 'HASH' and !keys %{$value} )
        ) {
            next ATTR;
        }

        $hash{$attr} = $value;
    }

    return \%hash;
}

1;

__END__