foo

use Irssi;
use strict;
use Data::Dumper;

Irssi::signal_add 'window item new', sub {
        my ($window, $item) = @_;
        print("add");
        print Data::Dumper->new([\$window])->Dump;
        print Data::Dumper->new([\$item])->Dump;
};

Irssi::signal_add_first 'window item new', sub {
        my ($window, $item) = @_;
        print("add_first");
        print Data::Dumper->new([\$window])->Dump;
        print Data::Dumper->new([\$item])->Dump;
};


Irssi::signal_add_last 'window item new', sub {
        my ($window, $item) = @_;
        print("add_last");
        print Data::Dumper->new([\$window])->Dump;
        print Data::Dumper->new([\$item])->Dump;
};