/usr/local/CPAN/Plagger/Plagger/Rule.pm

• package Plagger::Rule
  • new
  • init
  • id
  • as_title
• EOF

package Plagger::Rule;
use strict;
use UNIVERSAL::require;

sub new {
    my($class, $config) = @_;

    if (my $exp = $config->{expression}) {
        $config->{module} = 'Expression';
    }

    my $module = delete $config->{module};
    $module = "Plagger::Rule::$module";
    $module->require or die $@;

    my $self = bless {%$config}, $module;
    $self->init();
    $self;
}

sub init { }

sub id {
    my $self = shift;
    "xxx";
}

sub as_title {
    my $self = shift;
    "xxx";
}

1;