File Coverage

blib/lib/Games/Rezrov/ZObject.pm

Criterion	Covered	Total	%
statement	103	122	84.4
branch	17	28	60.7
condition	2	3	66.6
subroutine	24	26	92.3
pod	0	21	0.0
total	146	200	73.0

# ZObject: z-code Object, containing "attributes" (flags)
# and "properties" (values).
package Games::Rezrov::ZObject;

use strict;
use Games::Rezrov::ZProperty;
use Games::Rezrov::ZText;
use Games::Rezrov::Inliner;
use Games::Rezrov::InlinedPrivateMethod;

my $code = Games::Rezrov::InlinedPrivateMethod->new("-manual" => 1,
						    "-names" =>
						    [ qw(
							 _object_id
							 _pointer_size
							 _attrib_offset
							 _property_start_index
							 _prop_addr
							 _parent_offset
							 _child_offset
							 _sibling_offset
							 _property_cache
							)
						    ],
						   );
Games::Rezrov::Inliner::inline($code);

#print $$code; die;
eval $$code;
die $@ if $@;

1;

__DATA__