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

Template-Plugin-Java documentation Contained in the Template-Plugin-Java distribution.

Index

Code Index:

NAME

Top

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

SYNOPSIS

Top

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

DESCRIPTION

Top

regex

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.

SCALAR

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

PRIMITIVE

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

STRING

An incarnation of java.lang.String.

ARRAY

A java.util.Vector.

boolean

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

all

Exports all of the proceeding.

AUTHOR

Top

Rafael Kitover (caelum@debian.org)

COPYRIGHT

Top

This program is Copyright (c) 2000 by Rafael Kitover. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

perl(1), Template(3), Template::Plugin::Java::Utils(3), Template::Plugin::Java::SQL(3)

Template-Plugin-Java documentation Contained in the Template-Plugin-Java distribution. 
package Template::Plugin::Java::Constants;


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__