optimize customer list, RT#20173
[freeside.git] / FS / FS / part_event / Condition / pkg_age_before.pm
1 package FS::part_event::Condition::pkg_age_before;
2 use base qw( FS::part_event::Condition::pkg_age_Common );
3
4 use strict;
5
6 sub description { 'Package Age Younger'; }
7
8 sub pkg_age_operator { '>'; }
9
10 sub pkg_age_label { 'Package date age younger than'; }
11
12 sub pkg_age_compare {
13   my( $self, $pkg_date, $age ) = @_;
14
15   $pkg_date > $age;
16 }
17
18 1;
19