http-webtest-commits

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

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

Modified Files:
	WTScript.pm Request.pm List.pm 
Log Message:
Rename method template_data() to execute()


Index: WTScript.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Action/WTScript.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** WTScript.pm	7 Jan 2003 21:04:11 -0000	1.1
--- WTScript.pm	18 Jan 2003 18:51:31 -0000	1.2
***************
*** 9,14 ****
  use CGI;
  
! # returns data to fill in template
! sub template_data {
      my $self = shift;
      my $controller = shift;
--- 9,13 ----
  use CGI;
  
! sub execute {
      my $self = shift;
      my $controller = shift;
***************
*** 18,22 ****
      my $wtscript = join "\n", map $self->test2wtscript($_), @tests;
  
!     return($self->SUPER::template_data($controller),
             wtscript => $wtscript);
  }
--- 17,21 ----
      my $wtscript = join "\n", map $self->test2wtscript($_), @tests;
  
!     return($self->SUPER::execute($controller),
             wtscript => $wtscript);
  }

Index: Request.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Action/Request.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** Request.pm	3 Jan 2003 23:01:22 -0000	1.1.1.1
--- Request.pm	18 Jan 2003 18:51:31 -0000	1.2
***************
*** 7,12 ****
  use base qw(HTTP::WebTest::Action);
  
! # returns data to fill in template
! sub template_data {
      my $self = shift;
      my $controller = shift;
--- 7,11 ----
  use base qw(HTTP::WebTest::Action);
  
! sub execute {
      my $self = shift;
      my $controller = shift;
***************
*** 15,19 ****
      my $test = $controller->recorder->tests->[$num];
  
!     return($self->SUPER::template_data($controller),
             test => $test);
  }
--- 14,18 ----
      my $test = $controller->recorder->tests->[$num];
  
!     return($self->SUPER::execute($controller),
             test => $test);
  }

Index: List.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Action/List.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** List.pm	3 Jan 2003 23:01:22 -0000	1.1.1.1
--- List.pm	18 Jan 2003 18:51:31 -0000	1.2
***************
*** 7,16 ****
  use base qw(HTTP::WebTest::Action);
  
! # returns data to fill in template
! sub template_data {
      my $self = shift;
      my $controller = shift;
  
!     return($self->SUPER::template_data($controller),
             tests => $controller->recorder->tests);
  }
--- 7,15 ----
  use base qw(HTTP::WebTest::Action);
  
! sub execute {
      my $self = shift;
      my $controller = shift;
  
!     return($self->SUPER::execute($controller),
             tests => $controller->recorder->tests);
  }