File Coverage

blib/lib/FreeMind/Document.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	17	19	89.4

package FreeMind::Document;

use 5.010001;
use strict;
use warnings;

BEGIN {
	$FreeMind::Document::AUTHORITY = 'cpan:TOBYINK';
	$FreeMind::Document::VERSION   = '0.002';
}

use XML::LibXML::Augment
	-type  => 'Document',
	-names => ['map'],
;

require FreeMind::Map;
require FreeMind::Node;
require FreeMind::Icon;
require FreeMind::Edge;
require FreeMind::Font;
require FreeMind::Cloud;
require FreeMind::ArrowLink;
require FreeMind::Text;

use Carp;
use Types::Standard;

sub _has
{
	my $pkg = shift;
	while (@_)
	{
		my $name = shift;
		my $opts; $opts = shift if ref $_[0];
		next if $pkg->can($name);

		my $type     = $opts->{isa} || Types::Standard::Str;
		my $required = $opts->{required};

		my $sub = sub {
			my $node = shift;
			return $node->getAttribute($name) unless @_;

			my $v = $_[0];
			if (defined $v)
			{
				$type->assert_valid($v);
				$v = $v ? "true" : "false" if $type->name eq 'Bool';
				$node->setAttribute($name, $v);
			}
			else
			{
				croak "cannot set required attribute '$name' to undef" if $required;
				$node->removeAttribute($name);
			}
		};
		{ no strict "refs"; *{$pkg."::".lc $name} = $sub }
	}
}

sub load
{
	shift;
	"XML::LibXML::Augment"->rebless(
		"XML::LibXML"->load_xml(@_),
	);
}

sub root
{
	shift->findnodes('/map/node')->[0];
}

sub toHash
{
	shift->root->toHash;
}

sub toText
{
	shift->root->toText(@_);
}

1;

__END__