lib/MooseX/StrictConstructor/Role/Object.pm

   1 package MooseX::StrictConstructor::Role::Object;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Moose::Role;
   7
   8
   9 after 'BUILDALL' => sub
  10 {
  11     my $self   = shift;
  12     my $params = shift;
  13
  14     my %attrs =
  15         ( map { $_ => 1 }
  16           grep { defined }
  17           map { $_->init_arg() }
  18           $self->meta()->compute_all_applicable_attributes()
  19         );
  20
  21     my @bad = sort grep { ! $attrs{$_} }  keys %{ $params };
  22
  23     if (@bad)
  24     {
  25         confess "Found unknown attribute(s) init_arg passed to the constructor: @bad";
  26     }
  27
  28     return;
  29 };
  30
  31 no Moose::Role;
  32
  33 1;
  34
  35 __END__
  36
  37 =pod
  38
  39 =head1 NAME
  40
  41 MooseX::StrictConstructor::Role::Object - A role which implements a strict constructor for Moose::Object
  42
  43 =head1 SYNOPSIS
  44
  45   Moose::Util::MetaRole::apply_base_class_roles
  46       ( for_class => $caller,
  47         roles =>
  48         [ 'MooseX::StrictConstructor::Role::Object' ],
  49       );
  50
  51 =head1 DESCRIPTION
  52
  53 When you use C<MooseX::StrictConstructor>, your objects will have this
  54 role applied to them. It provides a method modifier for C<BUILDALL()>
  55 from C<Moose::Object> that implements strict argument checking for
  56 your class.
  57
  58 =head1 AUTHOR
  59
  60 Dave Rolsky, C<< <autarch@urth.org> >>
  61
  62 =head1 COPYRIGHT & LICENSE
  63
  64 Copyright 2007-2008 Dave Rolsky, All Rights Reserved.
  65
  66 This program is free software; you can redistribute it and/or modify
  67 it under the same terms as Perl itself.
  68
  69 =cut