File Coverage

blib/lib/PYX/SGML/Tags.pm

Criterion	Covered	Total	%
statement	68	72	94.4
branch	4	4	100.0
condition			n/a
subroutine	17	18	94.4
pod	5	5	100.0
total	94	99	94.9

package PYX::SGML::Tags;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Error::Pure qw(err);
use PYX::Parser;
use PYX::Utils qw(encode);
use Tags::Output::Raw;

our $VERSION = 0.06;

# Constructor.
sub new {
	my ($class, @params) = @_;

	my $self = bless {}, $class;

	# Input encoding.
	$self->{'input_encoding'} = 'utf-8';

	# Input 'Tags' item callback.
	$self->{'input_tags_item_callback'} = undef;

	# Tags object.
	$self->{'tags'} = undef;

	# Process params.
	set_params($self, @params);

	if (! defined $self->{'tags'}) {
		$self->{'tags'} = Tags::Output::Raw->new(
			'input_tags_item_callback'
				=> $self->{'input_tags_item_callback'},
			'output_handler' => \*STDOUT,
		);
	}

	# Check for Tags::Output object.
	if (! $self->{'tags'}->isa('Tags::Output')) {
		err "Bad 'Tags::Output::*' object.";
	}

	# PYX::Parser object.
	$self->{'pyx_parser'} = PYX::Parser->new(
		'callbacks' => {
			'attribute' => \&_attribute,
			'comment' => \&_comment,
			'data' => \&_data,
			'end_element' => \&_end_element,
			'instruction' => \&_instruction,
			'start_element' => \&_start_element,
		},
		'input_encoding' => $self->{'input_encoding'},
		'non_parser_options' => {
			'tags' => $self->{'tags'},
		},
	);

	# Object.
	return $self;
}

# Parse pyx text or array of pyx text.
sub parse {
	my ($self, $pyx, $out) = @_;

	$self->{'pyx_parser'}->parse($pyx, $out);
	$self->{'tags'}->flush;

	return;
}

# Parse file with pyx text.
sub parse_file {
	my ($self, $file, $out) = @_;

	$self->{'pyx_parser'}->parse_file($file, $out);
	$self->{'tags'}->flush;

	return;
}

# Parse from handler.
sub parse_handler {
	my ($self, $input_file_handler, $out) = @_;

	$self->{'pyx_parser'}->parse_handler($input_file_handler, $out);
	$self->{'tags'}->flush;

	return;
}

sub finalize {
	my $self = shift;

	$self->{'tags'}->finalize;

	return;
}

# Process start of element.
sub _start_element {
	my ($self, $elem) = @_;

	my $tags = $self->{'non_parser_options'}->{'tags'};
	$tags->put(['b', $elem]);

	return;
}

# Process end of element.
sub _end_element {
	my ($self, $elem) = @_;

	my $tags = $self->{'non_parser_options'}->{'tags'};
	$tags->put(['e', $elem]);

	return;
}

# Process data.
sub _data {
	my ($self, $data) = @_;

	my $tags = $self->{'non_parser_options'}->{'tags'};
	$tags->put(['d', encode($data)]);

	return;
}

# Process attribute.
sub _attribute {
	my ($self, $attr, $value) = @_;

	my $tags = $self->{'non_parser_options'}->{'tags'};
	$tags->put(['a', $attr, $value]);

	return;
}

# Process instruction tag.
sub _instruction {
	my ($self, $target, $code) = @_;

	my $tags = $self->{'non_parser_options'}->{'tags'};
	$tags->put(['i', $target, $code]);

	return;
}

# Process comments.
sub _comment {
	my ($self, $comment) = @_;

	my $tags = $self->{'non_parser_options'}->{'tags'};
	$tags->put(['c', encode($comment)]);

	return;
}

1;

__END__