FS/FS/part_event/Condition/pkg_age.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

package FS::part_event::Condition::pkg_age;
use base qw( FS::part_event::Condition::pkg_age_Common );

use strict;

sub description { 'Package Age'; }

sub pkg_age_operator { '<='; }

sub pkg_age_label { 'Package date age older than'; }

sub pkg_age_compare {
  my( $self, $pkg_date, $age ) = @_;
  $pkg_date <= $age;
}

1;