File Coverage

blib/lib/Topicalizer/Block.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Topicalizer::Block;

# Copyright (c) 2012 Iain Campbell. All rights reserved.
#
# This work may be used and modified freely, but I ask that the copyright
# notice remain attached to the file. You may modify this module as you
# wish, but if you redistribute a modified version, please attach a note
# listing the modifications you have made.

BEGIN {
    $Topicalizer::Block::AUTHORITY = 'cpan:CPANIC';
    $Topicalizer::Block::VERSION   = '1.00';
    $Topicalizer::Block::VERSION   = eval $Topicalizer::Block::VERSION;
}

use 5.008_004;
use strict;
use warnings;
use Params::Callbacks qw/list item/;

require Exporter;

our @ISA = qw/Exporter/;

our @EXPORT_OK = qw/block yield list item/;

our %EXPORT_TAGS = (
    all => [ @EXPORT_OK ]
);

our $callbacks;
our $has_yielded;
our $topic;

# RESULT = block { STATEMENT(S) } LIST;

sub block (&;@) {
    local $_;
    local($has_yielded, $topic) = (0, shift);
    local($callbacks) = Params::Callbacks->extract(@_);
    my @result = $topic->();
    return @result if $has_yielded;
    return $callbacks->yield(@result);
}

# RESULT = yield LIST;

sub yield {
    $has_yielded = 1;
    $callbacks->yield(@_);
}

1;
__END__