--- trunk/lib/Frey/File.pm	2008/12/11 21:36:42	817
+++ trunk/lib/Frey/File.pm	2008/12/12 18:00:21	818
@@ -3,7 +3,35 @@
 
 use File::Slurp qw//;
 
+=head2 read_file
+
+L<File::Slurp/read_file>
+
+=cut
+
 sub read_file { shift ; File::Slurp::read_file( @_ ) }
+
+=head2 write_file
+
+L<File::Slurp/write_file>
+
+=cut
+
 sub write_file { shift ; File::Slurp::write_file( @_ ) }
 
+=head2 dir_extension
+
+  my @files = $self->dir_extension( 'var/directory/', '\.(ya?ml)$' );
+
+=cut
+
+sub dir_extension {
+	my ($self,$path,$extension) = @_;
+
+	opendir(my $dir, $path) || die "can't opendir $path: $!";
+	my @files = sort grep { m/$extension/ } readdir($dir);
+	closedir $dir;
+	return @files;
+}
+
 1;