File Coverage

blib/lib/Pod/Perldoc/ToRtf.pm
Criterion Covered Total %
statement 12 21 57.1
branch 0 4 0.0
condition 0 2 0.0
subroutine 4 8 50.0
pod 0 4 0.0
total 16 39 41.0


line stmt bran cond sub pod time code
1             package Pod::Perldoc::ToRtf;
2 1     1   1242 use strict;
  1         2  
  1         36  
3 1     1   6 use warnings;
  1         1  
  1         45  
4 1     1   6 use parent qw( Pod::Simple::RTF );
  1         2  
  1         8  
5              
6 1     1   11009 use vars qw($VERSION);
  1         2  
  1         178  
7             $VERSION = '3.27';
8              
9 0     0 0   sub is_pageable { 0 }
10 0     0 0   sub write_with_binmode { 0 }
11 0     0 0   sub output_extension { 'rtf' }
12              
13             sub page_for_perldoc {
14 0     0 0   my($self, $tempfile, $perldoc) = @_;
15 0 0         return unless $perldoc->IS_MSWin32;
16              
17 0   0       my $rtf_pager = $ENV{'RTFREADER'} || 'write.exe';
18              
19 0           $perldoc->aside( "About to launch <\"$rtf_pager\" \"$tempfile\">\n" );
20              
21 0 0         return 1 if system( qq{"$rtf_pager"}, qq{"$tempfile"} ) == 0;
22 0           return 0;
23             }
24              
25             1;
26             __END__