File Coverage

blib/lib/DMTF/CIM/Instance.pm

Criterion	Covered	Total	%
statement	18	100	18.0
branch	0	40	0.0
condition	0	5	0.0
subroutine	6	16	37.5
pod	9	10	90.0
total	33	171	19.3

package DMTF::CIM::Instance;

use warnings;
use strict;

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

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

use DMTF::CIM::Instance::Property;
use DMTF::CIM::Instance::Method;
use Carp;

# Module implementation here
sub new
{
	my $class=shift;
	my %args=@_;
	my $self=DMTF::CIM::_model::new($class,$args{parent},$args{class});
	$self->{VALUES}=$args{values} || {};
	$self->{PROPERTIES}={};
	$self->{METHODS}={};
	if(defined $args{uri}) {
		$self->{URI}=URI->new($args{uri});
	}
	return($self);
}

sub property
{
	my $self=shift;
	my $name=shift;

	if(!defined $name) {
		carp("No property name specified for property() of $self->{DATA}{name}");
		return;
	}
	return($self->{PROPERTIES}{lc($name)}) if defined $self->{PROPERTIES}{lc($name)};
	my $propref=$self->{DATA}{properties}{lc($name)};
	if(!defined $propref) {
		$propref=$self->{DATA}{references}{lc($name)};
	}
	if(!defined $propref) {
		carp("$self->{DATA}{name}.$name is not defined in the model");
		return;
	}
	$self->{VALUES}{$propref->{name}}=undef unless exists $self->{VALUES}{$propref->{name}};
	$self->{PROPERTIES}{lc($name)}=DMTF::CIM::Instance::Property->new(parent=>$self,property=>$propref,value=>\$self->{VALUES}{$propref->{name}});
	return $self->{PROPERTIES}{lc($name)};
}

sub method
{
	my $self=shift;
	my $name=shift;

	if(!defined $name) {
		carp("No method name specified for method() of $self->{DATA}{name}");
		return;
	}
	return($self->{METHODS}{lc($name)}) if defined $self->{METHODS}{lc($name)};
	my $methodref=$self->{DATA}{methods}{lc($name)};
	if(!defined $methodref) {
		carp("$self->{DATA}{name}.$name() is not defined in the model");
		return;
	}
	$self->{METHODS}{lc($name)}=DMTF::CIM::Instance::Method->new(parent=>$self,method=>$methodref);
	return $self->{METHODS}{lc($name)};
}

sub uri
{
	my $self=shift;
	my $newuri=shift;
	if(defined($newuri)) {
		$self->{URI}=URI->new($newuri);
	}
	my $uri=$self->{URI}->canonical;
	if(ref($uri)) {
		return $$uri;
	}
	return $uri;
}

# Read-only
sub class
{
	my $self=shift;
	return $self->name;
}

sub is_association
{
	my $self=shift;

	return 1 if(defined $self->{DATA}{qualifiers}{association} && $self->{DATA}{qualifiers}{association}{value} eq 'true');
	return 0;
}

sub defined_properties
{
	my $self=shift;
	my @ret;
	foreach my $prop (sort keys(%{$self->{VALUES}})) {
		if(defined $self->{VALUES}{$prop}) {
			my $newprop=$self->property($prop);
			push @ret,$newprop if defined $newprop;
		}
	}
	return @ret;
}

sub all_properties
{
	my $self=shift;
	my @ret;
	foreach my $prop (sort keys(%{$self->{DATA}{properties}})) {
		if(defined $self->{DATA}{properties}{$prop}{name}) {
			my $newprop=$self->property($prop);
			push @ret,$newprop if defined $newprop;
		}
	}
	foreach my $prop (sort keys(%{$self->{DATA}{references}})) {
		if(defined $self->{DATA}{references}{$prop}{name}) {
			my $newprop=$self->property($prop);
			push @ret,$newprop if defined $newprop;
		}
	}
	return(sort { $a->name cmp $b->name } @ret);
}

sub methods
{
	my $self=shift;
	my @ret;
	foreach my $method (sort keys(%{$self->{DATA}{methods}})) {
		if(defined $self->{DATA}{methods}{$method}{name}) {
			my $newmethod=$self->method($method);
			push @ret,$newmethod if defined $newmethod;
		}
	}
	return(sort { $a->name cmp $b->name } @ret);
}

sub superclass
{
	my $self=shift;
	return $self->{DATA}{superclass};
}

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