/[webpac2]/trunk/lib/WebPAC/Common.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 /trunk/lib/WebPAC/Common.pm

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

revision 763 by dpavlin, Wed Oct 25 20:53:14 2006 UTC revision 856 by dpavlin, Sun May 27 16:00:26 2007 UTC
# Line 5  use strict; Line 5  use strict;
5    
6  use Log::Log4perl qw/get_logger :levels/;  use Log::Log4perl qw/get_logger :levels/;
7  use Time::HiRes qw/time/;  use Time::HiRes qw/time/;
8    use Data::Dump qw/dump/;
9    
10  # If ture, enable logging debug  # If ture, enable logging debug
11  my $log_debug = 0;  my $log_debug = 0;
# Line 101  sub fmt_time { Line 102  sub fmt_time {
102          return $out;          return $out;
103  }  }
104    
105    =head2 fill_in
106    
107    Fill in variable names by values
108    
109      print $webpac->fill_in( 'foo = $foo bar = $bar',
110            foo => 42, bar => 11,
111      );
112    
113    =cut
114    
115    sub fill_in {
116            my $self = shift;
117    
118            my $format = shift || die "no format?";
119            my $d = {@_};
120    
121            foreach my $n ( keys %$d ) {
122                    $format =~ s/\$\Q$n\E/$d->{$n}/gs;
123            }
124    
125            die "unknown variables in '$format' input data = ", dump( $d ) if ( $format =~ m/\$\w+/ );
126    
127            return $format;
128    }
129    
130  #  #
131  #  #
132  #  #
Legend:
Removed from v.763  
changed lines
  Added in v.856
  ViewVC Help
Powered by ViewVC 1.1.26