File Coverage

blib/lib/oEdtk/C7Doc.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	0	3	0.0
total	16	29	55.1

package oEdtk::C7Doc;

use strict;
use warnings;

our $VERSION = '0.04';

use base 'oEdtk::Doc';

use oEdtk::C7Tag;

sub append_table {
	# appending table by element
	# each element name based on the table name with elem number
	# exemple $name = ADDRESS => ADDRES00 to ADDRES99
	my ($self, $name, @tValues) = @_;

	for (my $i = 0; $i <= $#tValues; $i++) {
		my $elem = sprintf("%.6s%0.2d", $name, $i);
		$self->append($elem, $tValues[$i]);
	}
}

sub mktag {
	my ($self, $name, $value) = @_;

	return oEdtk::C7Tag->new($name, $value);
}

sub line_break {
	return "\n";
}

1;