[Catalyst-commits] r6650 - trunk/Catalyst-Engine-Wx/lib/Catalyst/View

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-08-12 22:00:27 +0100 (Sun, 12 Aug 2007)
New Revision: 6650

Added:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxHtmlEasyPrinting.pm
Log:
A view to print easily html files

Added: trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxHtmlEasyPrinting.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxHtmlEasyPrinting.pm	                        (rev 0)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/View/WxHtmlEasyPrinting.pm	2007-08-12 21:00:27 UTC (rev 6650)
@@ -0,0 +1,54 @@
+package Catalyst::View::WxHtmlEasyPrinting;
+
+use warnings;
+use strict;
+no strict 'refs';
+
+use base qw/Catalyst::View/;
+
+use Wx::Html;
+
+our $VERSION = '0.01_01';
+
+=head1 NAME
+
+Catalyst::View::WxHtmlEasyPrinting - WxHtmlEasyPrinting View Class
+
+=head1 SYNOPSIS
+
+=cut
+sub new {
+   my ( $class, $c, $arguments ) = @_;
+    my $self = bless {}, $class;
+
+    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 at 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;