/usr/local/CPAN/mobirc/App/Mobirc/Role/Context.pm

• package App::Mobirc::Role::Context
  • context
• EOF

package App::Mobirc::Role::Context;
use strict;
use Moose::Role;

my $context;
sub context { $context }

around 'new' => sub {
    my ($next, @args) = @_;
    my $self = $next->( @args );

    $context = $self;

    return $self;
};

1;
# i know this is f*cking black magick :(
# but, this is very useful :)