package Clock::Event::Tick;
use strict;
use warnings;
use base 'Clock::Event';
sub match {
my $self = shift;
my $query = shift;
if (my $like = $query->{like}) {
return(index($$self, $like) >= 0);
}
return 1;
}
1;
package Clock::Event::Tick;
use strict;
use warnings;
use base 'Clock::Event';
sub match {
my $self = shift;
my $query = shift;
if (my $like = $query->{like}) {
return(index($$self, $like) >= 0);
}
return 1;
}
1;