FS/FS/part_event/Condition/pkg_age.pm

   1 package FS::part_event::Condition::pkg_age;
   2 use base qw( FS::part_event::Condition::pkg_age_Common );
   3
   4 use strict;
   5
   6 sub description { 'Package Age'; }
   7
   8 sub pkg_age_operator { '<='; }
   9
  10 sub pkg_age_label { 'Package date older than'; }
  11
  12 sub pkg_age_compare {
  13   my( $self, $pkg_date, $age ) = @_;
  14
  15   $pkg_date <= $age;
  16 }
  17
  18 1;
  19