Eve

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "CGI::Session" : "0",
            "Contextual::Return" : "0",
            "DBD::Pg" : "0",
            "DateTime" : "0",
            "DateTime::Format::HTTP" : "0",
            "DateTime::Format::Pg" : "0",
            "Email::Sender::Simple" : "0",
            "Exception::Class" : "0",
            "Hash::MultiValue" : "0",
            "JSON::XS" : "0",
            "PadWalker" : "0",
            "Plack::Request" : "0",
            "Template" : "0",
            "Test::Class" : "0",
            "Test::MockObject" : "0",
            "Test::More" : "0",
            "Tie::IxHash" : "0",
            "URI" : "0"
         }
      }
   },

META.yml  view on Meta::CPAN

  CGI::Session: 0
  Contextual::Return: 0
  DBD::Pg: 0
  DateTime: 0
  DateTime::Format::HTTP: 0
  DateTime::Format::Pg: 0
  Email::Sender::Simple: 0
  Exception::Class: 0
  Hash::MultiValue: 0
  JSON::XS: 0
  PadWalker: 0
  Plack::Request: 0
  Template: 0
  Test::Class: 0
  Test::MockObject: 0
  Test::More: 0
  Tie::IxHash: 0
  URI: 0
version: 0.06

Makefile.PL  view on Meta::CPAN

    VERSION_FROM        => 'lib/Eve.pm',
    ABSTRACT_FROM       => 'lib/Eve.pm',
    ($ExtUtils::MakeMaker::VERSION >= 6.3002
      ? ('LICENSE'=> 'perl')
      : ()),
    PL_FILES            => {},
    PREREQ_PM => {
        'Contextual::Return' => 0,
        'Test::More' => 0,
        'Test::Class' => 0,
        'PadWalker' => 0,
        'Test::MockObject' => 0,
        'Exception::Class' => 0,
        'Tie::IxHash' => 0,
        'Template' => 0,
        'DateTime' => 0,
        'DBD::Pg' => 0,
        'URI' => 0,
        'CGI::Session' => 0,
        'Email::Sender::Simple' => 0,
        'DateTime::Format::Pg' => 0,

lib/Eve/Support.pm  view on Meta::CPAN

package Eve::Support;

use strict;
use warnings;

use Contextual::Return;
use PadWalker ();
use Tie::IxHash;

use Eve::Exception;

=head1 NAME

B<Eve::Support> - an utility class that houses various helper functions

=head1 SYNOPSIS

lib/Eve/Support.pm  view on Meta::CPAN

or an argument is redundant.

=back

=cut

sub arguments : lvalue {
    my $arg_hash = shift;

    foreach my $var (@_) {
        my $name = PadWalker::var_name(1, \$var);
        if (not defined($name)) {
            Eve::Error::Attribute->throw(
                message => 'Could not get a variable for a named argument');
        }

        $name =~ s/^\$//;

        if (exists($arg_hash->{$name})) {
            $var = $arg_hash->{$name};
            delete($arg_hash->{$name});