/[Frey]/branches/no-pager/lib/Frey/Web.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/no-pager/lib/Frey/Web.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 758 by dpavlin, Sat Dec 6 17:16:12 2008 UTC revision 759 by dpavlin, Tue Dec 9 20:10:32 2008 UTC
# Line 679  sub checkbox { Line 679  sub checkbox {
679          qq|<input name="$name" value="$value" type="checkbox"$checked>|;          qq|<input name="$name" value="$value" type="checkbox"$checked>|;
680  }  }
681    
682    =head2 strip
683    
684    Strip whitespace around content
685    
686      my $stripped = strip('  no more whitespace around this   ');
687    
688    =cut
689    
690    sub strip {
691            my $t = shift;
692            $t =~ s{^\s+}{}gs;
693            $t =~ s{>\s+<}{><}gs;
694            $t =~ s{\s+$}{}gs;
695            return $t;
696    }
697    
698  1;  1;
Legend:
Removed from v.758  
changed lines
  Added in v.759
  ViewVC Help
Powered by ViewVC 1.1.26