File Coverage

blib/lib/Template/Plugin/Java/Constants.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	32	32	100.0

package Template::Plugin::Java::Constants;

=head1 NAME

Template::Plugin::Java::Constants - Constants for the Java Template plugin
modules.

=head1 SYNOPSIS

use Template::Plugin::Java::Constants qw/:regex/;
use Template::Plugin::Java::Constants qw/:boolean/;
use Template::Plugin::Java::Constants qw/:all/;

=head1 DESCRIPTION

=over 8

=item B

The "regex" tag exports qr// compiled regular expressions SCALAR, PRIMITIVE,
STRING and ARRAY, these are for matching Java types. All of these match a whole
line, with no extra whitespace, and return the matched java type as $1. They
may be used as:

$string =~ /@{[SCALAR]}/; # Ugly but effective and relatively fast.

=over 8

=item B

Any primitive or encapsulated primitive: int, or Integer, or String, etc.

=item B

Only primitive types like int, float, double, byte, etc.

=item B

An incarnation of java.lang.String.

=item B

A java.util.Vector.

=back

=item B

The boolean tag just exports the constants TRUE as 1 and FALSE as 0.

=item B

Exports all of the proceeding.

=back

=cut

require Exporter;
@ISA = qw( Exporter );

use strict;
use vars qw(@EXPORT_OK %EXPORT_TAGS);

use constant INSTALL_PREFIX => '@@INSTALL_PREFIX@@';

my @boolean = qw(TRUE FALSE);
use constant TRUE   => 1;
use constant FALSE  => 0;

my @regex = qw(SCALAR STRING ARRAY);

use constant SCALAR => qr{^(
	(?:java\.lang\.)?
	(?:[Bb]yte|[Cc]har|[Ss]hort|Integer|int|[Ll]ong|[Ff]loat|[Dd]ouble|String)
)$}x;

use constant STRING => qr{^((?:java\.lang\.)?String)$};

use constant ARRAY  => qr{^((?:java\.util\.)?Vector)$};

@EXPORT_OK   = (@boolean, @regex, 'INSTALL_PREFIX');
%EXPORT_TAGS = (
	'all'	=> [ @EXPORT_OK ],
	'boolean'=>[ @boolean   ],
	'regex'	=> [ @regex     ]
);

1;

__END__