lib/IronMunger/StatsSaver.pm

   1 use MooseX::Declare;
   2
   3 class IronMunger::StatsSaver {
   4
   5   use MooseX::Types::Path::Class qw(Dir);
   6   use aliased 'IronMunger::Monger';
   7   use IO::All;
   8   use File::Path qw(mkpath);
   9   use Text::CSV_XS;
  10   use namespace::autoclean;
  11
  12   has dir => (is => 'ro', isa => Dir, required => 1, coerce => 1);
  13
  14   my @types = qw(male female);
  15
  16   method _image_symlink_target (Str $type, Str $level) {
  17     $self->dir->subdir('badges')->subdir($type)->file("${level}.png");
  18   }
  19
  20   method _image_symlink_from (Str $user, Str $type) {
  21     $self->dir->subdir('mybadge')->subdir($type)->file("${user}.png");
  22   }
  23
  24   method _write_image_symlink (Str $user, Str $type, Str $level) {
  25     my ($from, $target) = (
  26       $self->_image_symlink_from($user, $type),
  27       $self->_image_symlink_target($type, $level),
  28     );
  29     my $dir = File::Spec->catpath((File::Spec->splitpath($target))[0,1]);
  30     mkpath($dir);
  31     symlink($target, $from)
  32       or confess "Couldn't symlink ${from} to ${target}: $!";
  33     return;
  34   }
  35
  36   method _write_symlinks_for (IronMunger::Monger $monger) {
  37     foreach my $type (@types) {
  38       foreach my $name (map $monger->$_, qw(name nick)) {
  39         $self->_write_image_symlink($name, $type, $monger->level);
  40       }
  41     }
  42   }
  43
  44   method _write_summary_csv (ArrayRef[IronMunger::Monger] $mongers) {
  45   }
  46
  47   method mongers (ArrayRef[IronMunger::Monger] $mongers) {
  48     $self->_write_summary_csv($mongers);
  49     $self->_write_symlinks_for($_) for @$mongers;
  50   }
  51
  52 }
  53
  54 1;