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; |
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 |
# |
# |