package Catalyst::View::WxHtmlEasyPrinting;

use warnings;
use strict;
no strict 'refs';

use base qw/Catalyst::View/;

our $VERSION = "0.02_05";

=head1 NAME

Catalyst::View::WxHtmlEasyPrinting - WxHtmlEasyPrinting View Class

=head1 SYNOPSIS

=cut
sub new {
    my ( $class, $c, $arguments ) = @_;
    my $self = bless {}, $class;

    if ($ENV{CATALYST_ENGINE} eq 'Wx') {
	eval {
	    require Wx::Html;
	};
    }

    return $self;
}


sub process {
    my ($self, $c) = @_;
    
    $self->{'Wx::HtmlEasyPrinting'} = Wx::HtmlEasyPrinting->new( $c->stash->{title} );
    $self->{'Wx::HtmlEasyPrinting'}->PrintFile( $c->stash->{file} );
    
    return; 
}

sub DESTROY {
   my ($self) = shift;
 
}


=head1 AUTHORS

Eriam Schaffter, C<eriam@cpan.org>

=head1 COPYRIGHT

This program is free software, you can redistribute it and/or modify it 
under the same terms as Perl itself.

=cut

1;