Extract perl function from template files

Hello,
Does anyone have any recommendations for extracting perl function from a template file then using the commong function in an include file?

Any suggestions / advice would be appreciated.

Cheers.

Chris Seymour

Find more posts tagged with

Comments

nipper

Your question is not very clear.

What type of template ? Most likely you are talking about a TPL. You can use iw_include statemetns for those.

stefanmaier

Do you want to cut perl code out of a TPL and store the code in a separate file?
Perhaps you write a perl module and include it with a "use" command in the TPL.

Anyway, you should give some more information about your intention...

Regards
Stefan

Tbag

Hi cseymour,

If it's one thing the standard TeamSite installation doesn't do a whole lot of, it's reuse code. A lot of their default workflows and solution scripts were written by different people over the years and there doesn't appear to have been an effort to ever refactor any of the common functionality.

Anyway, the preferred way to do what you're asking is to create a perl module with the common code in it.

In our environment, we created our own directory tree under $iwhome/iw-perl/site/lib/. Under the lib directory (which is automatically placed in the @INC path), create a file like "Test.pm". Inside that file, put the following code:


package Test;

require Exporter;

use strict;

our $VERSION = 1.00;
our @ISA = qw(Exporter);
our @EXPORT_OK = ();
our @EXPORT = qw(hello);

sub hello {
   my($name) = @_;
   return "hello, $name";
}

1;

Then, whenever you're in a block of Perl (within a template, workflow, whatever) you should be able to make use of the "hello" function like this:


use Test qw(hello);

my $string = hello("cseymour");
print $string;

If you pick up Larry Wall's Programming Perl book, there's a couple good chapters on more advanced Perl module topics. You can quickly learn by poking around the $iwhome/iw-perl/lib directory (but I wouldn't recommend changing anything in there yourself).

Adam Stoller

[...]
In our environment, we created our own directory tree under $iwhome/iw-perl/site/lib/. Under the lib directory (which is automatically placed in the @INC path), create a file like "Test.pm". Inside that file, put the following code:
package Test;

require Exporter;

use strict;

our $VERSION = 1.00;
our @ISA = qw(Exporter);
our @EXPORT_OK = ();
our @EXPORT = qw(hello);

sub hello {
   my($name) = @_;
   return "hello, $name";
}

1;

First, I'd recommend using a different name for the package / module than just "Test" - since there is already a standard module with that name.
Second, I'd suggest getting Damian Conway's Perl Best Practices book - the code above would probably be better written as:

package MyTest;
# require Exporter;
use strict;
use warnings;
use base qw(Exporter);

our $VERSION = 1.00;
# our @ISA = qw(Exporter);
our @EXPORT_OK = qw(hello);
our @EXPORT; # = qw(hello);

sub hello {
# my ($name) = @_;
   my $name = shift;
   return "hello, $name";
}

1;