File Coverage

blib/lib/PYX.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	4	4	100.0
condition			n/a
subroutine	11	11	100.0
pod	6	6	100.0
total	59	59	100.0

package PYX;

use base qw(Exporter);
use strict;
use warnings;

use PYX::Utils qw(decode);
use Readonly;

# Constants.
Readonly::Array our @EXPORT_OK => qw(attribute char comment end_element instruction
	start_element);

our $VERSION = 0.10;

# Encode attribute as PYX.
sub attribute {
	my (@attr) = @_;

	my @ret = ();
	while (@attr) {
		my ($key, $val) = (shift @attr, shift @attr);
		push @ret, "A$key ".decode($val);
	}

	return @ret;
}

# Encode characters between elements as PYX.
sub char {
	my $char = shift;

	return '-'.decode($char);
}

# Encode comment as PYX.
sub comment {
	my $comment = shift;

	return '_'.decode($comment);
}

# Encode end of element as PYX.
sub end_element {
	my $elem = shift;

	return ')'.$elem;
}

# Encode instruction as PYX.
sub instruction {
	my ($target, $code) = @_;

	my $ret = '?'.decode($target);
	if ($code) {
		$ret .= ' '.decode($code);
	}

	return $ret;
}

# Encode begin of element as PYX.
sub start_element {
	my ($elem, @attr) = @_;

	my @ret = ();
	push @ret, '('.$elem;
	if (@attr) {
		push @ret, attribute(@attr);
	}

	return @ret;
}

1;

__END__