Parent Directory | Revision Log | Patch
revision 1122 by dpavlin, Mon Nov 17 21:30:05 2008 UTC | revision 1128 by dpavlin, Tue Apr 21 21:03:52 2009 UTC | |
---|---|---|
# | Line 9 use WebPAC::Common; | Line 9 use WebPAC::Common; |
9 | use base qw/WebPAC::Common/; | use base qw/WebPAC::Common/; |
10 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
11 | use Encode qw/decode from_to/; | use Encode qw/decode from_to/; |
12 | use YAML; | |
13 | ||
14 | =head1 NAME | =head1 NAME |
15 | ||
# | Line 561 sub stats { | Line 562 sub stats { |
562 | ||
563 | $log->debug( sub { dump($s) } ); | $log->debug( sub { dump($s) } ); |
564 | ||
565 | my $path = 'var/stats.yml'; | |
566 | YAML::DumpFile( $path, $s ); | |
567 | $log->info( 'created ', $path, ' with ', -s $path, ' bytes' ); | |
568 | ||
569 | return $out; | return $out; |
570 | } | } |
571 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |