package Rezmey;

use strict;
use DOMTemplate;

sub new {
  my ($class, $r) = @_;
  my $self = { r => $r };
  bless $self, $class;
  return $self;
}

sub print {
  my ($self, $text) = @_;
  $self->{r}->print($text);
}

sub next {
  my ($self) = @_;
  $self->{r}->next;
}

sub main {
  my ($self) = @_;
  my $r = $self->{r};
  $self->print(qq{
    <form>
      Name:<br>
      <input type=text name=name><br>
      Email:<br>
      <input type=text name=email><br>
      <input type=submit>
    </form>
  });
  $r->next;
  my $name = $r->param('name');
  my $email = $r->param('email');
  $r->send_headers("Content-type: text/html\r\n\r\n");
  my $file;
  {
    local $/;
    open my $pdf, "<", "x.pdf";
    $file = <$pdf>;
    close $pdf;
  }
  #$r->print($file);
  $r->print("Hello!");
  $r->next;
  $r->print('hi!');
}

1;