File Coverage

blib/lib/Glib/Ex/SignalBits.pm

Criterion	Covered	Total	%
statement	12	16	75.0
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	24	75.0

# Copyright 2009, 2010, 2011, 2012, 2014 Kevin Ryde

# This file is part of Glib-Ex-ObjectBits.
#
# Glib-Ex-ObjectBits is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as published
# by the Free Software Foundation; either version 3, or (at your option) any
# later version.
#
# Glib-Ex-ObjectBits is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
# Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Glib-Ex-ObjectBits.  If not, see .

package Glib::Ex::SignalBits;
use 5.008;
use strict;
use warnings;

use base 'Exporter';
our @EXPORT_OK = qw(accumulator_first
                    accumulator_first_defined);

# uncomment this to run the ### lines
#use Smart::Comments;

our $VERSION = 16;

sub accumulator_first {
  my ($hint, $acc, $ret) = @_;
  ### accumulator_first(): $acc,$ret
  return (0,     # flag, false don't continue emission
          $ret); # retval
}

sub accumulator_first_defined {
  my ($hint, $acc, $ret) = @_;
  ### accumulator_first_defined(): $acc,$ret
  return (! defined $ret,  # flag, true to continue if $ret is undef
          $ret);           # retval
}

# # signal accumulator returning first true value from handler
# sub accumulator_first_true {
#   my ($hint, $acc, $ret) = @_;
#   ### _accumulator_first_true: [$acc,$ret]
#   return (! $ret,  # flag, true to continue if no $ret item
#           $ret);   # retval
# }
#
# =item C<< Glib::Ex::SignalBits::accumulator_first_true ($hint, $acc, $ret) >>
#
# Accumulator stopping at and returning the first true value (true in the Perl
# boolean sense) from the handlers.

1;
__END__