Select Code to Download

if called without session ID
  create new session id
...
    add "...continuing..." at the end of the response
    add <meta http-equiv="refresh" content="3"/> to the response's hea
+der
  display a page with the newly retrieved data

sub render {
  my $self = shift;
...
  my $self_object = $self->reflect->object; # in case we have a classn
+ame
  return ( self => $self_object );
}

sub template_vars {
  my $self = shift;
  return ( $self->SUPER::template_vars, foo => 'bar' );
}

# Super/Module.pm
{
...

__END__
Can't locate object method "foo" via package "Some::Module::YeWhoEnter
+s" at Some/Module.pm line 15.

sub foo {
  my $hashref = shift;
...
    frobnicate( $key, $value );
  }
}

+++ -   Thu Nov 10 21:32:08 2005
@@ -536,7 +536,7 @@
...
</p></em></blockquote>

<code>

create table foo (
  id   serial,
...
  name varchar(500) not null,
  constraint bar_pk primary key(id)
);

insert into foo(name) values('Mumble Frotz');