anazawa

tie my %header => 'Blosxom::Header', # isa
    as         => 'ro',              # or 'rw'
    to         => $blosxom::header;  # HashRef

tie my %header => 'Blosxom::Header', (
    as => 'ro',
    to => $blosxom::header
);

anazawa

package Blosxom::Plugin;
use strict;
use warnings;

sub config {}

sub response {
    require Blosxom::Header:
    Blosxom::Header->instance;
}

anazawa

anazawa@mini ~% perl -MCGI -e 'print CGI::header({ -aaa => 1, -bbb => 2, -ccc => 3, -ddd => 4, -eee => 5, -fff => 6  })'
Eee: 5
Bbb: 2
Aaa: 1
Fff: 6
Ccc: 3
Ddd: 4
Content-Type: text/html; charset=ISO-8859-1

anazawa

# as_arrayref
package as_arrayref;
use strict;
use warnings;
use Blosxom::Header;

sub start { !$blosxom::static_entries }

sub last {
    my $header = Blosxom::Header->instance:

anazawa

module DiamondA
  def hello
    "DiamondA hello"
  end
end

module DiamondB
  include DiamondA
end

anazawa

package destroy;
use strict;
use warnings;

sub start { !$blosxom::static_entries }
sub end   { undef $blosxom::output    }

# plugins should have an instance
#    sub start : Hook { ... }

anazawa

0.03 Nov 16th, 2012

• rename sylpheed_rss to sylfeed
• [Config] add 'log_file' which defaults to "~/.sylpheed-2.0/sylfeed.log"
• use Log::Handler

0.02 Oct 11th, 2012

• [Config] rename 'dir' to 'folder'

anazawa

package last_modified;
use strict;
use warnings;
use parent 'Blosxom::Plugin';
use CGI::Header;
use HTTP::Date;
use List::Util qw/max/;

__PACKAGE__->mk_accessors(
    last_modified => sub { [] },

anazawa

package CGI::PSGI;
use strict;
use warnings;
use parent 'CGI';
use CGI::Util;
use CGI::Header;

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

anazawa

package js;
use strict;
use warnings;
use parent 'Blosxom::Plugin::Web';
use Carp qw/croak/;
use Encode;
use HTTP::Date qw/time2isoz/;

our $VERSION = '0.01';