root/lang/perl/plagger/lib/Plagger/Plugin/Filter/ScrapeMetaData.pm

package Plagger::Plugin::Filter::ScrapeMetaData;
use strict;
use base qw( Plagger::Plugin );

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'update.entry.fixup' => \&scrape,
    );
}

sub scrape {
    my($self, $context, $args) = @_;

      for my $pattern (@{$self->conf->{pattern}}) {
          next if $pattern->{title} && $args->{entry}->title ne $pattern->{title};
          for my $value ($args->{entry}->body =~ /@{[$pattern->{rule}]}/g) {
              $args->{entry}->meta->{$pattern->{name}} ||= [];
              push(@{$args->{entry}->meta->{$pattern->{name}}}, $value);
              $context->log(info => "scrape @{[$pattern->{name}]}: $value success. ");
          }
      }
}

1;
__END__

=head1 NAME

Plagger::Plugin::Filter::ScrapeMetaData - it's setting meta data by regexp

=head1 SYNOPSIS

  - module: Filter::ScrapeMetaData
    config:
      pattern:
        - name: weight
          rule: "weight: ([0-9.]+)kg"

=head1 DESCRIPTION

Filter::ScrapeMetaData is setting meta data by regexp.
Meta data used publish plugins (exp. Publish::HatenaGraph).

=head1 AUTHOR

Kan Fushihara <kan.fushihara at gmail.com>

=head1 SEE ALSO

L<Plagger>

=cut