Dogcows Code - chaz/p5-CGI-Ex/blob - samples/app/app1/lib/App1/Thankyou.pm

   1 package App1::Thankyou;
   2
   3 =head1 NAME
   4
   5 App1::Thankyou - show the final page of the application
   6
   7 =cut
   8
   9 use strict;
  10 use warnings;
  11 use base qw(App1);
  12 use CGI::Ex::Dump qw(debug);
  13
  14 sub info_complete { 0 } # path officially ends here - don't try and run any other steps
  15
  16 sub hash_swap {
  17     my $self = shift;
  18     return {
  19         login_link => "some_sort_of_login_link",
  20     };
  21 }
  22
  23 1;
  24