#!/usr/bin/perl

use Date::Manip;
use Time::Piece;
use File::Find::Rule;

sub parse_date { Time::Piece->strptime(ParseDate(shift), "%Y%m%d%T") }

(
	sub { # don't remind to fix code which I'm not responsible for
		my $self = shift;
		DROP if $self->{file} =~ m{
				/usr/.*lib			# not mine, 5.9.1 tree
			|	/.*Library/Perl		# not mine, OSX stock
			|	support				# [patched] support code, test for manually
		}x;
	},
	sub { # don't remind to fix files which i've been working on recently
		my $self = shift;

		DROP unless File::Find::Rule->
			file->
			mtime( "<=" . parse_date("yesterday")->epoch )->
		in( $self->{file} );
	},
);