File Coverage

blib/lib/OPC/Part.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	2	0.0
condition			n/a
subroutine	4	8	50.0
pod	0	4	0.0
total	16	38	42.1

package OPC::Part;

use strict;
use warnings;
use Carp;
use base 'OPC::Node';

sub new {
	my( $Class, %NodeParams ) = @_;

	my $Node = OPC::Node->new( %NodeParams );
	my $PartName = $Node->Name;
	unless( $Node->Package->HasPart( $PartName )) {
		Carp::confess "Part '$PartName' doesn't exist";
	}

	return bless $Node, $Class;
}

sub Content {
	my $self = shift;
	return $self->Package->PartContents( $self->Name );
}

sub SetContent {
	my ($self, $NewContents) = @_;
	$self->Package->SetContents( $self->Name, $NewContents );
}

sub PhysicalName {
	my $self = shift;
	return $self->Package->PhysicalNameByPartName( $self->Name );
}

1;