From 90a0ba6364fe7e346e2ff9ba4674df14a97ffbe9 Mon Sep 17 00:00:00 2001
From: Ray Miller <rm7@sanger.ac.uk>
Date: Wed, 1 Aug 2012 11:42:44 +0100
Subject: [PATCH] Implement CleanReportCache task

---
 .gitignore                                 |  2 +-
 Changes                                    |  3 +++
 lib/LIMS2/Task/General/CleanReportCache.pm | 30 ++++++++++++++++++++++
 3 files changed, 34 insertions(+), 1 deletion(-)
 create mode 100644 Changes
 create mode 100644 lib/LIMS2/Task/General/CleanReportCache.pm

diff --git a/.gitignore b/.gitignore
index e76532e..0dcb4b5 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,3 @@
 .build
-.LIMS2-Tasks-*
+LIMS2-Tasks-*
 *~
diff --git a/Changes b/Changes
new file mode 100644
index 0000000..c7327ad
--- /dev/null
+++ b/Changes
@@ -0,0 +1,3 @@
+{{$NEXT}}
+
+   Initial release.
diff --git a/lib/LIMS2/Task/General/CleanReportCache.pm b/lib/LIMS2/Task/General/CleanReportCache.pm
new file mode 100644
index 0000000..c0ed709
--- /dev/null
+++ b/lib/LIMS2/Task/General/CleanReportCache.pm
@@ -0,0 +1,30 @@
+package LIMS2::Task::General::CleanReportCache;
+
+use strict;
+use warnings FATAL => 'all';
+
+use Moose;
+use LIMS2::Report;
+use namespace::autoclean;
+
+extends 'LIMS2::Task';
+
+override abstract => sub {
+    'Delete stale entries from the report cache';
+};
+
+sub execute {
+    my ( $self, $opts, $args ) = @_;
+
+    my $verbose = $self->trace || $self->debug || $self->verbose;
+
+    LIMS2::Report::clean_cache( $self->model, $verbose );
+
+    return;
+}
+
+__PACKAGE__->meta->make_immutable;
+
+1;
+
+__END__