The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Plagger::Plugin::Filter::FloatingDateTime;
use strict;
use base qw( Plagger::Plugin );

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

sub update {
    my($self, $context, $args) = @_;
    $args->{entry}->date and $args->{entry}->date->time_zone->is_floating and
	$args->{entry}->date->set_time_zone($self->{tz});
}

1;

__END__

=head1 NAME

Plagger::Plugin::Filter::FloatingDateTime - fix floating timezone

=head1 SYNOPSIS

    - module: Filter::FloatingDateTime

=head1 DESCRIPTION

This plugin fixes a floating timezone.

=head1 AUTHOR

Masahiro Nagano

=head1 SEE ALSO

L<Plagger>, L<DateTime>

=cut