File Coverage

blib/lib/Mojo/Cloudstack/Base.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	1	1	100.0
total	13	35	37.1

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';
  no warnings 'redefine';
  foreach my $key (keys %$self){
    #TODO test $self->attr($key => sub { $self->{$key} });
    #TODO disable no warnings 'redefine';
    *{"${cs_class}::${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__