File Coverage

blib/lib/Mojo/Cloudstack/Base.pm

Criterion	Covered	Total	%
statement	9	28	32.1
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	1	1	100.0
total	13	41	31.7

package Mojo::Cloudstack::Base;
use Mojo::Base -base;

sub new {
  my $class    = shift;
  my $cs_class = shift;

  my $self = bless shift, $cs_class;

  no strict 'refs';
  *{ "${cs_class}::import" } = *{ "Mojo::Base::import" };
  *{ "${cs_class}::attr" }   = *{ "Mojo::Base::attr" };
  use strict 'refs';

  $self->import('-base');

  foreach my $key (keys %$self) {

    $self->attr(
      $key => sub {
        my ($self, $value) = @_;
        return $value ? (($self->{ $key } = $value) and $self) : $self->{ $key };
      }
    );
    if ($key eq 'jobresult') {
      my $otype = (keys %{ $self->{ jobresult } })[0];
      $self->$key(Mojo::Cloudstack::Base->new('Mojo::Cloudstack::' . ucfirst ($otype), $self->{ $key }{ $otype }));
    }
  }
  return $self;
}

1;

__END__