File Coverage

blib/lib/Catalyst/Plugin/Textile.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Catalyst::Plugin::Textile;
2              
3 1     1   39620 use strict;
  1         2  
  1         41  
4 1     1   5 use base 'Class::Data::Inheritable';
  1         1  
  1         1083  
5 1     1   2450 use Text::Textile;
  1         119580  
  1         108  
6              
7             our $VERSION = '0.01';
8              
9             __PACKAGE__->mk_classdata('textile');
10             __PACKAGE__->textile( Text::Textile->new );
11              
12             =head1 NAME
13              
14             Catalyst::Plugin::Textile - Textile for Catalyst
15              
16             =head1 SYNOPSIS
17              
18             # include it in plugin list
19             use Catalyst qw/Textile/;
20              
21             my $html = $c->textile->process($text);
22              
23             =head1 DESCRIPTION
24              
25             Persistent Textile processor for Catalyst.
26              
27             =head2 METHODS
28              
29             =head3 $c->textile;
30              
31             Returns a ready to use L<Text::Textile> object.
32              
33             =head1 SEE ALSO
34              
35             L<Catalyst::Manual>, L<Catalyst::Test>, L<Catalyst::Request>,
36             L<Catalyst::Response>, L<Catalyst::Helper>, L<Text::Textile>
37              
38             =head1 AUTHOR
39              
40             Sebastian Riedel, C<sri@oook.de>
41              
42             =head1 LICENSE
43              
44             This library is free software . You can redistribute it and/or modify
45             it under the same terms as perl itself.
46              
47             =cut
48              
49             1;