File Coverage

blib/lib/Wurm/let.pm

Criterion	Covered	Total	%
statement	71	71	100.0
branch	8	14	57.1
condition	4	6	66.6
subroutine	22	22	100.0
pod	19	19	100.0
total	124	132	93.9

package Wurm::let;

use strict;
use warnings;

sub new {
  my ($class, $bulk) = @_;

  $bulk //= { };
  die "mangled grub bulk\n"
    unless 'HASH' eq ref $bulk;
  return bless {bulk => $bulk}, $class;
}

sub _at {
  die "mangled code\n" unless 'CODE' eq ref $_[-1];
  return @_;
}

sub molt {return $_[0]->{bulk}}

sub case {
  my ($self, $code) = _at(@_);
  $self->{bulk}{case} = $code;
  return $self;
}

sub pore {
  my ($self, $code) = _at(@_);
  $self->{bulk}{pore} = $code;
  return $self;
}

sub gate {
  my ($self, $code) = _at(@_);
  $self->{bulk}{gate} = $code;
  return $self;
}

sub tube {
  my ($self, $name, $wurm) = @_;

  die "tube with no name\n" unless defined $name;

  $wurm //= { };

  $self->{bulk}{tube}{$name} = $wurm;
  return $self;
}

sub grub {
  my ($self, $name, $grub) = @_;

  die "grub with no name\n" unless defined $name;

  $grub //= { };
  $grub = Wurm::let->new($grub)
    if 'HASH' eq ref $grub;

  $self->{bulk}{tube}{$name} = $grub->molt;
  return $grub;
}

sub neck {
  my ($self, $code) = _at(@_);
  $self->{bulk}{neck} = $code;
  return $self;
}

sub body {
  my ($self, $methods, $code) = _at(@_);

  $methods = [$methods] if '' eq ref $methods;
  die "\n" unless 'ARRAY' eq ref $methods;
  $self->{bulk}{body}{$_} = $code
    for @$methods;

  return $self;
}

sub get {
  my ($self, $code) = _at(@_);
  $self->{bulk}{body}{get} = $code;
  return $self;
}

sub head {
  my ($self, $code) = _at(@_);
  $self->{bulk}{body}{head} = $code;
  return $self;
}

sub post {
  my ($self, $code) = _at(@_);
  $self->{bulk}{body}{post} = $code;
  return $self;
}

sub put {
  my ($self, $code) = _at(@_);
  $self->{bulk}{body}{put} = $code;
  return $self;
}

sub delete {
  my ($self, $code) = _at(@_);
  $self->{bulk}{body}{delete} = $code;
  return $self;
}

sub trace {
  my ($self, $code) = _at(@_);
  $self->{bulk}{body}{trace} = $code;
  return $self;
}

sub options {
  my ($self, $code) = _at(@_);
  $self->{bulk}{body}{options} = $code;
  return $self;
}

sub connect {
  my ($self, $code) = _at(@_);
  $self->{bulk}{body}{connect} = $code;
  return $self;
}

sub patch {
  my ($self, $code) = _at(@_);
  $self->{bulk}{body}{patch} = $code;
  return $self;
}

sub tail {
  my ($self, $code) = _at(@_);
  $self->{bulk}{tail} = $code;
  return $self;
}

'.oOo.' # in wurm i trust
__END__