start of stats saver code

[engit/Iron-Munger.git] / lib / IronMunger / StatsSaver.pm

diff --git a/lib/IronMunger/StatsSaver.pm b/lib/IronMunger/StatsSaver.pm
new file mode 100644 (file)
index 0000000..18c2e36
--- /dev/null
+++ b/lib/IronMunger/StatsSaver.pm
@@ -0,0 +1,28 @@
+use MooseX::Declare;
+
+class IronMunger::StatsSaver {
+
+  use MooseX::Types::Path::Class qw(Dir);
+
+  has dir => (is => 'ro', isa => Dir, required => 1, coerce => 1);
+
+  method _image_symlink_target (Str $type, Str $level) {
+    $self->dir->subdir('badges')->subdir($type)->file("${level}.png");
+  }
+
+  method _image_symlink_from (Str $user, Str $type) {
+    $self->dir->subdir('mybadge')->subdir($type)->file("${user}.png");
+  }
+
+  method _write_image_symlink (Str $user, Str $type, Str $level) {
+    my ($from, $target) = (
+      $self->_image_symlink_from($user, $type),
+      $self->_image_symlink_target($type, $level),
+    );
+    symlink($target, $from)
+      or confess "Couldn't symlink ${from} to ${target}: $!";
+    return;
+  }
+}
+
+1;