--- trunk/lib/Frey/Path.pm	2008/11/01 00:58:24	224
+++ trunk/lib/Frey/Path.pm	2008/12/02 17:36:51	682
@@ -19,4 +19,17 @@
 	mkpath $base_path if ! -e $base_path;
 }
 
+=head2 path_size
+
+  my $path_size_bytes = $self->path_size( 'lib/path' );
+
+=cut
+
+sub path_size {
+	my ($self,$path) = @_;
+	$path .= ' ' . ( -s $path ) . ' bytes';
+	warn "# path_size: $path";
+	return $path;
+}
+
 1;