Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv11465/lib/HTTP/WebTest/Recorder
Modified Files:
Actions.pm
Log Message:
Minor style fixes
Index: Actions.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Actions.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Actions.pm 22 Apr 2003 22:07:35 -0000 1.8
--- Actions.pm 22 Apr 2003 22:17:38 -0000 1.9
***************
*** 12,18 ****
use vars qw(@EXPORT_OK %EXPORT_TAGS);
! @EXPORT_OK = qw(render_template_action enable_action list_action
! request_action response_content_action
! delete_action wtscript_action filter_action);
%EXPORT_TAGS = (all => [@EXPORT_OK]);
--- 12,23 ----
use vars qw(@EXPORT_OK %EXPORT_TAGS);
! @EXPORT_OK = qw(css_action
! delete_action
! enable_action list_action
! filter_action
! render_template_action
! request_action
! response_content_action
! wtscript_action);
%EXPORT_TAGS = (all => [@EXPORT_OK]);
***************
*** 21,25 ****
my $content = '';
! my $template = create_template();
my $view = $controller->heap->{view};
--- 26,30 ----
my $content = '';
! my $template = _create_template();
my $view = $controller->heap->{view};
***************
*** 40,46 ****
}
! # creates template toolkit object
! sub create_template {
! # search template files in standart Perl include directories
my @template_dir = qw(HTTP WebTest Recorder template);
my $include_path = (join ':',
--- 45,51 ----
}
! # creates template toolkit object which is configured to search
! # template files in standart Perl include directories
! sub _create_template {
my @template_dir = qw(HTTP WebTest Recorder template);
my $include_path = (join ':',
|