File Coverage

blib/lib/HTML/Merge/Ext.pm

Criterion	Covered	Total	%
statement	3	9	33.3
branch			n/a
condition			n/a
subroutine	1	4	25.0
pod	0	3	0.0
total	4	16	25.0

package HTML::Merge::Ext;

use vars qw($ENGINE);

## preset examples

sub OUT_CHOMPIE ($) {
	my ($param) = @_;
	qq!"shalom $param on engine $ENGINE\\n"!;
}

sub OAPI_EYNSHEM ($$$$) {
	my ($var, $from, $to, $step) = @_;
	qq!for (\$vars{"$var"} = "$from"; \$vars{"$var"} <= "$to"; \$vars{"$var"} += "$step") {\n!;
}

sub CAPI_EYNSHEM () {
	"}\n";
}

sub OUT_SASSI () {
	qq!"* \\. *"!;
}

sub OUT_YONA ($$) {
	my ($a, $b) = @_;
	qq!"$a and $b"!;
}

1;
__END__