actionexporter(3) - Linux man page

Name

ActionExporter - Extends Exporter with the export_action() function, for use with the GCT::XSP::ActionTaglib module.

Synopsis

require ActionExporter;
our @ISA = ("ActionExporter");

ActionExporter::export_action("foo");

sub foo_start{ #... }
sub foo_end{ #... }

Description

Extends Exporter with the export_action() function. Calling ActionExporter::export_action("foo") exports the two subs 'foo_start' and 'foo_end' under a export tag 'foo'. This is usefull for creating an action Library as follows:

package MyActionsLibrary;
require ActionExporter;
our @ISA = ("ActionExporter");

ActionExporter::export_action("foo");
sub foo_start{ return '';}
sub foo_end{   return '';}

ActionExporter::export_action("bar");
sub bar_start{ return '';}
sub bar_end{   return '';}

A taglib created using using ActionTaglib can then use the 'foo' actions by simply adding 'use MyActionLibrary qw(:foo);', for example:

package MyTaglib;
use GCT::XSP::ActionTaglib;
@ISA = qw(use GCT::XSP::ActionTaglib;);
our $tagactions;

use MyActionLibrary qw(:foo);
$tagactions->{tag1}=[{ -action => 'foo' }];

Actions exported using the export_action() command are also added to the 'allactions' export tag so a taglib could import all the actions from an action library with:

use MyActionLibrary qw(:allactions);
$tagactions->{tag1}=[{ -action => 'foo' }];
$tagactions->{tag2}=[{ -action => 'bar' }];

Author

Adam Griffiths, <adam@goldcrosstechnical.co.uk>

Bugs

None known, please report any to bugreport@goldcrosstechnical.co.uk

Copyright

This Program is free software. You may copy or redistribute it under the same terms as Perl itself.

NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE .