http-webtest-commits

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv20975/lib/HTTP/WebTest/Recorder

Modified Files:
	Controller.pm Actions.pm 
Log Message:
Export action subs from Actions.pm


Index: Controller.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Controller.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Controller.pm	1 Feb 2003 22:29:58 -0000	1.3
--- Controller.pm	1 Feb 2003 22:40:07 -0000	1.4
***************
*** 12,16 ****
  
  use HTTP::WebTest::Recorder::Exceptions;
! use HTTP::WebTest::Recorder::Actions;
  
  # constructor
--- 12,16 ----
  
  use HTTP::WebTest::Recorder::Exceptions;
! use HTTP::WebTest::Recorder::Actions qw(:all);
  
  # constructor
***************
*** 34,42 ****
  use vars qw(%DISPATCH);
  
! %DISPATCH = (list     => \&HTTP::WebTest::Recorder::Actions::list_action,
!              request  => \&HTTP::WebTest::Recorder::Actions::request_action,
!              wtscript => \&HTTP::WebTest::Recorder::Actions::wtscript_action,
!              enable   => \&HTTP::WebTest::Recorder::Actions::enable_action,
!              default  => \&HTTP::WebTest::Recorder::Actions::default_action);
  
  # serves requests for web interface of the proxy
--- 34,42 ----
  use vars qw(%DISPATCH);
  
! %DISPATCH = (list     => \&list_action,
!              request  => \&request_action,
!              wtscript => \&wtscript_action,
!              enable   => \&enable_action,
!              default  => \&default_action);
  
  # serves requests for web interface of the proxy

Index: Actions.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Actions.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Actions.pm	1 Feb 2003 22:29:58 -0000	1.1
--- Actions.pm	1 Feb 2003 22:40:08 -0000	1.2
***************
*** 3,6 ****
--- 3,14 ----
  use strict;
  
+ use base qw(Exporter);
+ 
+ use vars qw(@EXPORT_OK %EXPORT_TAGS);
+ 
+ @EXPORT_OK = qw(default_action enable_action list_action
+                 request_action wtscript_action);
+ %EXPORT_TAGS = (all => [@EXPORT_OK]);
+ 
  use HTTP::WebTest::Parser;