Sledge::Plugin::IfModifiedSince

ひさしぶりにSledgeのプラグインを書いてみました。


Sledge::Plugin：：IfModifiedSince 0.01
＜追記 date="2005/10/30"＞上のリンク先が404だったのを直しておきました。失礼しました＜/追記＞


If-Modified-Sinceヘッダからコンテンツが更新されたかを判定するif_modified_sinceメソッドと、レスポンスとしてNot Modifiedを返すnot_modifiedメソッドをPagesクラスにインポートします。

各メソッドはこんな感じで使います。

>

package Your:Pages;
use Sledge::Plugin::IfModifiedSince;

sub dispatch_foo {
my $self = shift;

my $last_modified_epoch = ...;

unless ( $self->if_modified_since($last_modified_epoch) ) {
$self->not_modified;
return;
}
}

<

If-Modified-Sinceを投げてくれるやさしいエージェントにはこちらもやさしくしないとってことでちょこっと書いてみました。