File Coverage

blib/lib/DMTF/CIM/Instance/Method.pm

Criterion	Covered	Total	%
statement	15	93	16.1
branch	0	34	0.0
condition	0	2	0.0
subroutine	5	12	41.6
pod	7	7	100.0
total	27	148	18.2

package DMTF::CIM::Instance::Method;

use warnings;
use strict;

use version;
our $VERSION = qv('0.04');
require DMTF::CIM::_model;
use DMTF::CIM::Instance::Method::Parameter;
use Carp;

our @ISA=qw(DMTF::CIM::_valued);

# Module implementation here
sub new
{
	my $class=shift;
	my %args=@_;
	my $result;
	my $self=DMTF::CIM::_valued::new($class, parent=>$args{parent},data=>$args{method},value=>\$result);
	$self->{VALUES}=$args{values} || {};
	$self->{PARAMETERS}={};
	return($self);
}

sub parameter
{
	my $self=shift;
	my $param=shift;

	if(!defined $param) {
		carp "No parameter name specified";
		return;
	}
	my $lcp=lc($param);
	return $self->{PARAMETERS}{$lcp} if(defined $self->{PARAMETERS}{$lcp});
	my $paramref=$self->{DATA}{parameters}{$lcp};
	if(!defined $paramref) {
		carp "Parameter $param not specified in model";
		return;
	}
	$self->{PARAMETERS}{$lcp}=DMTF::CIM::Instance::Method::Parameter->new(parent=>$self, parameter=>$paramref, value=>\$self->{VALUES}{$paramref->{name}});
	return $self->{PARAMETERS}{$lcp};
}

sub in_params
{
	my $self=shift;
	my @ret;

	foreach my $key (keys %{$self->{DATA}{parameters}}) {
		my $param=$self->parameter($key);
		next unless defined $param;
		push @ret,$param if $param->qualifier('in') eq 'true';
	}
	return @ret;
}

sub out_params
{
	my $self=shift;
	my @ret;

	foreach my $key (keys %{$self->{DATA}{parameters}}) {
		my $param=$self->parameter($key);
		next unless defined $param;
		push @ret,$param if $param->qualifier('out') eq 'true';
	}
	return @ret;
}

sub parameters
{
	my $self=shift;
	my @ret;

	foreach my $key (keys %{$self->{DATA}{parameters}}) {
		my $param=$self->parameter($key);
		push @ret, $param if defined $param;
	}
	return @ret;
}

sub clear_parameters
{
	my $self=shift;
	my $result;
	$self->{PARAMETERS}={};
	$self->{VALUES}={};
	$self->{VALUE}=\$result;
}

sub invoke
{
	my $self=shift;
	my $dad=$self->parent;
	if(!defined $dad) {
		carp "Unable to get parent instance";
		return;
	}
	if(!defined $dad->uri) {
		carp "Parent instances does not hve a URI";
		return;
	}
	my $grandma=$dad->parent;
	if(!defined $grandma) {
		carp "Unable to get grandparent model";
		return;
	}

	my $params={};
	foreach my $param ($self->in_params) {
		if($param->is_array) {
			my $rv=$param->raw_value;
			if(defined $rv) {
				my $vals=[];
				foreach my $value ($param->raw_value) {
					push @$vals,$value if defined $value;
				}
				$params->{$param->name}=$vals;
			}
		}
		else {
			my $rv=$param->raw_value;
			$params->{$param->name}=$rv if defined $rv;
		}
	}
	my $result=$grandma->InvokeMethod(uri=>$dad->uri,method=>$self->name,params=>$params);
	return unless defined $result;
	foreach my $out (keys %$result) {
		if($out eq 'ReturnValue') {
			$self->raw_value($result->{$out});
		}
		else {
			$self->parameter($out)->raw_value($result->{$out});
		}
	}
	return $result->{ReturnValue};
}

1; # Magic true value required at end of module
__END__