Pod/HtmlPsPdf/RunTime.pm

package Pod::HtmlPsPdf::RunTime;

use strict;

%Pod::HtmlPsPdf::RunTime::options = ();

# check whether we have a Storable avalable
eval {require Storable;};
my $Storable_exists = $@ ? 0 : 1;

########################
sub set_runtime_options{
  %Pod::HtmlPsPdf::RunTime::options = %{+shift};
} # end of sub set_runtime_options

# returns 1 if true, 0 -- otherwise
#######################
sub has_storable_module{

  # ps2html is bundled, so we can create PS
  return $Storable_exists;

} # end of sub has_storable_module

# returns 1 if true, 0 -- otherwise
#################
sub can_create_ps{

  # ps2html is bundled, so we can always create PS
  return 1;

  # if you unbundle it make sure you write here a code similar to
  # can_create_pdf()

} # end of sub can_create_ps

# returns 1 if true, 0 -- otherwise
#################
sub can_create_pdf{

    # check whether ps2pdf exists
  my $ps2pdf_exists = which( 'ps2pdf' );

  print(qq{It seems that you do not have ps2pdf installed! You have
           to install it if you want to generate the PDF file
          }),
            return 0 
              unless $ps2pdf_exists;
  return 1;

}  # end of sub can_create_pdf

sub which {
    my $cmd = shift;
    
    foreach my $dir (split( ':', $ENV{PATH})) {
        return "$dir/$cmd" if -x "$dir/$cmd";
    }

        return;
}

    
1;
__END__
1	adcroft	1.1	package Pod::HtmlPsPdf::RunTime;
2
3			use strict;
4
5			%Pod::HtmlPsPdf::RunTime::options = ();
6
7			# check whether we have a Storable avalable
8			eval {require Storable;};
9			my $Storable_exists = $@ ? 0 : 1;
10
11			########################
12			sub set_runtime_options{
13			%Pod::HtmlPsPdf::RunTime::options = %{+shift};
14			} # end of sub set_runtime_options
15
16			# returns 1 if true, 0 -- otherwise
17			#######################
18			sub has_storable_module{
19
20			# ps2html is bundled, so we can create PS
21			return $Storable_exists;
22
23			} # end of sub has_storable_module
24
25			# returns 1 if true, 0 -- otherwise
26			#################
27			sub can_create_ps{
28
29			# ps2html is bundled, so we can always create PS
30			return 1;
31
32			# if you unbundle it make sure you write here a code similar to
33			# can_create_pdf()
34
35			} # end of sub can_create_ps
36
37			# returns 1 if true, 0 -- otherwise
38			#################
39			sub can_create_pdf{
40
41			# check whether ps2pdf exists
42			my $ps2pdf_exists = which( 'ps2pdf' );
43
44			print(qq{It seems that you do not have ps2pdf installed! You have
45			to install it if you want to generate the PDF file
46			}),
47			return 0
48			unless $ps2pdf_exists;
49			return 1;
50
51			} # end of sub can_create_pdf
52
53			sub which {
54			my $cmd = shift;
55
56			foreach my $dir (split( ':', $ENV{PATH})) {
57			return "$dir/$cmd" if -x "$dir/$cmd";
58			}
59
60			return;
61			}
62
63
64
65
66			1;
67			__END__