/[Frey]/trunk/lib/Frey/IconBrowser.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/IconBrowser.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 817 by dpavlin, Fri Nov 28 23:28:12 2008 UTC revision 818 by dpavlin, Fri Dec 12 18:00:21 2008 UTC
# Line 4  use Moose; Line 4  use Moose;
4  extends 'Frey';  extends 'Frey';
5  with 'Frey::Web';  with 'Frey::Web';
6  with 'Frey::Web::CombineImages';  with 'Frey::Web::CombineImages';
7    with 'Frey::File';
8    
9  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
10    
# Line 27  sub as_markup { Line 28  sub as_markup {
28          $self->title( 'icons - ' . $self->path );          $self->title( 'icons - ' . $self->path );
29    
30          my $extension = '\.(?:png)$';          my $extension = '\.(?:png)$';
31            my @icons = $self->dir_extension( $self->path, $extension );
         opendir(my $dir, $self->path) || die "can't opendir ", $self->path, ": $!";  
         my @icons = sort grep { m/$extension/ } readdir($dir);  
         closedir $dir;  
32    
33          my ( $combined_path, $styles ) = $self->combine_images( map { $self->path . '/' . $_ } @icons );          my ( $combined_path, $styles ) = $self->combine_images( map { $self->path . '/' . $_ } @icons );
34    
Legend:
Removed from v.817  
changed lines
  Added in v.818
  ViewVC Help
Powered by ViewVC 1.1.26