File Coverage

blib/lib/Sub/Chain/Named.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	4	6	66.6
condition	2	2	100.0
subroutine	9	9	100.0
pod	3	3	100.0
total	47	50	94.0

# vim: set ts=2 sts=2 sw=2 expandtab smarttab:
#
# This file is part of Sub-Chain
#
# This software is copyright (c) 2010 by Randy Stauner.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use strict;
use warnings;

package Sub::Chain::Named;
BEGIN {
  $Sub::Chain::Named::VERSION = '0.012';
}
BEGIN {
  $Sub::Chain::Named::AUTHORITY = 'cpan:RWSTAUNER';
}
# ABSTRACT: subclass of Sub::Chain with named subs

use Carp qw(croak);
use Sub::Chain;
our @ISA = qw(Sub::Chain);


sub new {
  my $class = shift;
  my %opts = ref $_[0] ? %{$_[0]} : @_;
  my $subs = delete $opts{subs};

  my $self = $class->SUPER::new(%opts);
  $self->{named} = $subs || {};

  return $self;
}


sub append {
  my ($self, $name, @append) = @_;
  my $sub = $self->{named}{$name}
    or croak("No sub defined for name: $name");
  $self->SUPER::append($sub, @append);
}


sub name_subs {
  my ($self) = shift;
  my %subs = ref $_[0] ? %{$_[0]} : @_;

  # TODO: warn if already exists?
  @{ $self->{named} }{keys %subs} = values %subs;

  # chainable
  return $self;
}

1;


__END__