Merge pull request #16 from oeuftete/kwalitee-updates

Kwalitee updates

pod/Button.pod

@@ -56,7 +56,7 @@ See L<Tk::options> for details of the standard options.
 
 =item Switch:	B<-command>
 
-Specifies a L<Perl/Tk callback|Tk::callbacks> to associate with the
+Specifies a L<PerlE<sol>Tk callback|Tk::callbacks> to associate with the
 button.  This command is typically invoked when mouse button 1 is
 released over the button window.
 
@@ -174,7 +174,7 @@ the B<-state> option;
 it can be made to appear raised, sunken, or flat;
 and it can be made to flash.  When a user invokes the
 button (by pressing mouse button 1 with the cursor over the
-button), then the L<perl/Tk callback|Tk::callbacks> specified in the B<-command>
+button), then the L<perlE<sol>Tk callback|Tk::callbacks> specified in the B<-command>
 option is invoked.
 
 =head1 WIDGET METHODS

pod/Checkbutton.pod

@@ -41,7 +41,7 @@ B<-text>
 B<-textvariable>
 B<-underline>
 B<-wraplength>
-	
+
 See L<Tk::options> for details of the standard options.
 
 =head1 WIDGET-SPECIFIC OPTIONS
@@ -54,7 +54,7 @@ See L<Tk::options> for details of the standard options.
 
 =item Switch:	B<-command>
 
-Specifies a L<perl/Tk callback|Tk::callbacks> to associate with the button.  This command
+Specifies a L<perlE<sol>Tk callback|Tk::callbacks> to associate with the button.  This command
 is typically invoked when mouse button 1 is released over the button
 window.  The button's global variable (B<-variable> option) will
 be updated before the command is invoked.
@@ -228,7 +228,7 @@ following: it can display itself in either of three different
 ways, according to the B<state> option;
 it can be made to appear
 raised, sunken, or flat; it can be made to flash; and it invokes
-a L<perl/Tk callback|Tk::callbacks> whenever mouse button 1 is clicked over the
+a L<perlE<sol>Tk callback|Tk::callbacks> whenever mouse button 1 is clicked over the
 checkbutton.
 
 In addition, checkbuttons can be I<selected>.
@@ -286,8 +286,8 @@ This command is ignored if the checkbutton's state is B<disabled>.
 
 Does just what would have happened if the user invoked the checkbutton
 with the mouse: toggle the selection state of the button and invoke
-the L<perl/Tk callback|Tk::callbacks> associated with the checkbutton, if there is one.
-The return value is the return value from the L<perl/Tk callback|Tk::callbacks>, or an
+the L<perlE<sol>Tk callback|Tk::callbacks> associated with the checkbutton, if there is one.
+The return value is the return value from the L<perlE<sol>Tk callback|Tk::callbacks>, or an
 empty string if there is no command associated with the checkbutton.
 This command is ignored if the checkbutton's state is B<disabled>.
 

pod/Menu.pod

@@ -69,7 +69,7 @@ entry is invoked.
 
 =item Switch:	B<-tearoffcommand>
 
-If this option has a non-empty value, then it specifies a L<perl/Tk callback|Tk::callbacks>
+If this option has a non-empty value, then it specifies a L<perlE<sol>Tk callback|Tk::callbacks>
 to invoke whenever the menu is torn off.  The actual command will
 consist of the value of this option, followed by a space, followed
 by the name of the menu window, followed by a space, followed by

pod/Radiobutton.pod

@@ -54,7 +54,7 @@ See L<Tk::options> for details of the standard options.
 
 =item Switch:	B<-command>
 
-Specifies a L<perl/Tk callback|Tk::callbacks> to associate with the button.  This command
+Specifies a L<perlE<sol>Tk callback|Tk::callbacks> to associate with the button.  This command
 is typically invoked when mouse button 1 is released over the button
 window.  The button's global variable (B<-variable> option) will
 be updated before the command is invoked.
@@ -214,7 +214,7 @@ all of the behavior of a simple button: it can display itself in either
 of three different ways, according to the B<state> option;
 it can be made to appear
 raised, sunken, or flat; it can be made to flash; and it invokes
-a L<perl/Tk callback|Tk::callbacks> whenever mouse button 1 is clicked over the
+a L<perlE<sol>Tk callback|Tk::callbacks> whenever mouse button 1 is clicked over the
 check button.
 
 In addition, radiobuttons can be I<selected>.

pod/Scale.pod

@@ -45,7 +45,7 @@ to 1/10 the range of the scale.
 
 =item Switch:	B<-command>
 
-Specifies the prefix of a L<perl/Tk callback|Tk::callbacks> to invoke whenever the scale's
+Specifies the prefix of a L<perlE<sol>Tk callback|Tk::callbacks> to invoke whenever the scale's
 value is changed via a method.
 The actual command consists
 of this option followed by a space and a real number indicating the

pod/Text.pod

@@ -168,7 +168,7 @@ Text widgets support four different kinds of annotations on the
 text, called tags, marks, embedded windows or embedded images.
 Tags allow different portions of the text
 to be displayed with different fonts and colors.
-In addition, L<perl/Tk callbacks|Tk::callbacks> can be associated with tags so
+In addition, L<perlE<sol>Tk callbacks|Tk::callbacks> can be associated with tags so
 that scripts are invoked when particular actions such as keystrokes
 and mouse button presses occur in particular ranges of the text.
 See L<"TAGS"> below for more details.

pod/Tree.pod

@@ -150,7 +150,7 @@ expression. There are just three metasymbols:
 at the beginning of the C<treeRegExp> same as in Perl regular
 expressions
 
-=item *
+=item Z<>*
 
 anything
 
@@ -162,19 +162,19 @@ expressions
 =back
 
 Examples:
-  
+
   $tree->add_pathimage('^root','openfolder','folder');
-  
+
 matches C<root>, C<root.foo>, C<root.bar>, but not C<foo.root>
 
   $tree->add_pathimage('root.*.class','openfolder','folder');
-  
+
 matches all paths containing C<< root.<anything>.class >>, but not
 C<< root.<anything>.<anything>.class >> C<*> is one part of the path. If
 you want to use a wildcard for two steps, you have to use C<*.*>.
 
   $tree->add_pathimage('class$','openfolder','folder');
-  
+
 This matches all path with C<class> at the end.
 
 =item I<$tree>-E<gt>B<autosetmode>
@@ -199,7 +199,7 @@ returns the number of subentries in the given path.
 
   my @childentries = $tree->child_entries('root.bar');
   # returns (root.bar.bar1, root.bar.bar2)
-  
+
   my $nr_of_subentries = $tree->child_entries('root',2);
   # returns 4
 

t/pod.t

@@ -0,0 +1,5 @@
+# -*- coding:utf-8; -*-
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();