Data-MuForm

 view release on metacpan or  search on metacpan

1  view on Meta::CPAN

HTML::TreeBuilder          = 3.23
Sub::Name                  = 0
Data::Clone                = 0
JSON                       = 0
List::Util                 = 1.33
HTML::Entities             = 0
Type::Tiny                 = 0
Scalar::Util               = 0
Regexp::Common             = 0
Data::Dump                 = 0
Crypt::CBC                 = 0
Test::Builder::Module      = 0

[Prereqs / TestRequires]
Test::V0                   = 0
Test::More                 = 0.94
Test::Differences          = 0
Test::Exception            = 0
Test::Memory::Cycle        = 1.04
Test::Warn                 = 0

META.json  view on Meta::CPAN

            "Test::EOL" : "0",
            "Test::More" : "0.88",
            "Test::NoTabs" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Class::Load" : "0.06",
            "Class::XSAccessor" : "0",
            "Crypt::CBC" : "0",
            "Data::Clone" : "0",
            "Data::Dump" : "0",
            "DateTime" : "0",
            "DateTime::Format::Strptime" : "0",
            "Email::Valid" : "0",
            "File::ShareDir" : "0",
            "File::Spec" : "0",
            "HTML::Entities" : "0",
            "HTML::TreeBuilder" : "3.23",
            "JSON" : "0",

META.yml  view on Meta::CPAN

generated_by: 'Dist::Zilla version 6.010, CPAN::Meta::Converter version 2.150005'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Data-MuForm
requires:
  Carp: '0'
  Class::Load: '0.06'
  Class::XSAccessor: '0'
  Crypt::CBC: '0'
  Data::Clone: '0'
  Data::Dump: '0'
  DateTime: '0'
  DateTime::Format::Strptime: '0'
  Email::Valid: '0'
  File::ShareDir: '0'
  File::Spec: '0'
  HTML::Entities: '0'
  HTML::TreeBuilder: '3.23'
  JSON: '0'

Makefile.PL  view on Meta::CPAN

  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "Data-MuForm",
  "LICENSE" => "perl",
  "NAME" => "Data::MuForm",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Class::Load" => "0.06",
    "Class::XSAccessor" => 0,
    "Crypt::CBC" => 0,
    "Data::Clone" => 0,
    "Data::Dump" => 0,
    "DateTime" => 0,
    "DateTime::Format::Strptime" => 0,
    "Email::Valid" => 0,
    "File::ShareDir" => 0,
    "File::Spec" => 0,
    "HTML::Entities" => 0,
    "HTML::TreeBuilder" => "3.23",
    "JSON" => 0,

Makefile.PL  view on Meta::CPAN

  "test" => {
    "TESTS" => "t/*.t t/compound/*.t t/errors/*.t t/field_setup/*.t t/fields/*.t t/form_setup/*.t t/localizer/*.t t/render/*.t t/repeatable/*.t t/transform/*.t t/validation/*.t"
  }
);


my %FallbackPrereqs = (
  "Carp" => 0,
  "Class::Load" => "0.06",
  "Class::XSAccessor" => 0,
  "Crypt::CBC" => 0,
  "Data::Clone" => 0,
  "Data::Dump" => 0,
  "DateTime" => 0,
  "DateTime::Format::Strptime" => 0,
  "Email::Valid" => 0,
  "File::ShareDir" => 0,
  "File::Spec" => 0,
  "HTML::Entities" => 0,
  "HTML::TreeBuilder" => "3.23",
  "JSON" => 0,

dist.ini  view on Meta::CPAN

HTML::TreeBuilder          = 3.23
Sub::Name                  = 0
Data::Clone                = 0
JSON                       = 0
List::Util                 = 1.33
HTML::Entities             = 0
Type::Tiny                 = 0
Scalar::Util               = 0
Regexp::Common             = 0
Data::Dump                 = 0
Crypt::CBC                 = 0
Test::Builder::Module      = 0

[Prereqs / TestRequires]
Test::More                 = 0.94
Test::Differences          = 0
Test::Exception            = 0
Test::Memory::Cycle        = 1.04
Test::Warn                 = 0

lib/Data/MuForm/Role/RequestToken.pm  view on Meta::CPAN

package Data::MuForm::Role::RequestToken;
# ABSTRACT: Role to incluse a token for csrf protection
use Moo::Role;
use Data::MuForm::Meta;

use Crypt::CBC;
use MIME::Base64 ('decode_base64', 'encode_base64');
use Try::Tiny;

has 'token_expiration_time' => ( is => 'rw', lazy => 1, builder => 'build_token_expiration_time' );
sub build_token_expiration_time { '3600' }
has 'token_prefix' => ( is => 'rw', builder => 'build_token_prefix' );
sub build_token_prefix { '' }
has 'crypto_key' => ( is => 'rw', lazy => 1, builder => 'build_crypto_key' );
sub build_crypto_key {  }
has 'crypto_cipher_type' => ( is => 'rw', buider => 'build_crypto_cipher_type' );
sub build_crypto_cipher_type { 'Blowfish' }
has 'cipher' => ( is => 'ro', lazy => 1, builder => 'build_cipher' );
sub build_cipher {
  my $self = shift;
  return Crypt::CBC->new(
    -key    => $self->crypto_key,
    -cipher => $self->crypto_cipher_type,
    -salt   => 1,
    -header => 'salt',
  );
}

has_field '_token' => (
  type => 'Hidden',
  required => 1,