File Coverage

blib/lib/Tkx/TclTk/Bind/IWidgets.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package Tkx::TclTk::Bind::IWidgets;
2              
3             # ##############################################################################
4             # # Script : Tkx::TclTk::Bind::IWidgets.pm #
5             # # -------------------------------------------------------------------------- #
6             # # Sprache : PERL 5 (V) 5.8.xx - 5.16.xx #
7             # # Standards : Perl-Best-Practices severity 1 (brutal) #
8             # # -------------------------------------------------------------------------- #
9             # # Autoren : Jürgen von Brietzke JvBSoft #
10             # # Version : 1.2.00 15.Jun.2013 #
11             # # -------------------------------------------------------------------------- #
12             # # Aufgabe : Bindet die TclTk 'iwidgets4.0.2' Bibliothek an Perl::Tkx #
13             # # -------------------------------------------------------------------------- #
14             # # Pragmas : strict, warnings #
15             # # -------------------------------------------------------------------------- #
16             # # Module : Env::C ActivePerl-PPM-Module #
17             # # ------------------------------------------------------------- #
18             # # Module : Tkx::TclTk::Bind Private-Module #
19             # # -------------------------------------------------------------------------- #
20             # # Copyright : Frei unter GNU General Public License bzw. Artistic License #
21             # # -------------------------------------------------------------------------- #
22             # # TODO : POD - Documentation #
23             # ##############################################################################
24              
25 1     1   22717 use strict;
  1         2  
  1         34  
26 1     1   5 use warnings;
  1         2  
  1         46  
27              
28             our $VERSION = q{1.2.00};
29              
30 1     1   413 use Env::C;
  0            
  0            
31             use Tkx::TclTk::Bind qw{ &load_library };
32              
33             sub BEGIN {
34              
35             my $temp_dir = load_library( 'iwidgets', 'iwidgets4.0.2' );
36              
37             # --- Steuervariablen belegen -----------------------------------------------
38             my $path_to_iwidgets_library
39             = File::Spec->catfile( $temp_dir, 'iwidgets4.0.2' );
40             my $path_to_itk_library = File::Spec->catfile( $temp_dir, 'itk3.4' );
41             my $path_to_itcl_library = File::Spec->catfile( $temp_dir, 'itcl3.4' );
42              
43             # --- Environment-Variablen setzen ------------------------------------------
44             Env::C::setenv( 'ITCL_LIBRARY', $path_to_itcl_library );
45             Env::C::setenv( 'ITK_LIBRARY', $path_to_itk_library );
46              
47             # --- IWidgets in Tkx binden ------------------------------------------------
48             Tkx::lappend( '::auto_path', $path_to_itk_library );
49             Tkx::lappend( '::auto_path', $path_to_itcl_library );
50             Tkx::lappend( '::auto_path', $path_to_iwidgets_library );
51             Tkx::package_require('Iwidgets');
52              
53             } # end of sub BEGIN
54              
55             sub END {
56              
57             Env::C::unsetenv('ITCL_LIBRARY');
58             Env::C::unsetenv('ITK_LIBRARY');
59              
60             } # end of sub END
61              
62             # ##############################################################################
63             # # E N D #
64             # ##############################################################################
65             1;
66              
67             __END__