Parent Directory | Revision Log | Patch
revision 224 by dpavlin, Sat Nov 1 00:58:24 2008 UTC | revision 682 by dpavlin, Tue Dec 2 17:36:51 2008 UTC | |
---|---|---|
# | Line 19 sub mkbasepath { | Line 19 sub mkbasepath { |
19 | mkpath $base_path if ! -e $base_path; | mkpath $base_path if ! -e $base_path; |
20 | } | } |
21 | ||
22 | =head2 path_size | |
23 | ||
24 | my $path_size_bytes = $self->path_size( 'lib/path' ); | |
25 | ||
26 | =cut | |
27 | ||
28 | sub path_size { | |
29 | my ($self,$path) = @_; | |
30 | $path .= ' ' . ( -s $path ) . ' bytes'; | |
31 | warn "# path_size: $path"; | |
32 | return $path; | |
33 | } | |
34 | ||
35 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |