use XSLoader;
BEGIN {
- our $VERSION = '0.09';
+ our $VERSION = '0.10_01';
XSLoader::load;
}
name => 'optional',
default_arguments => 1,
check_argument_count => 0,
+ named_parameters => 1,
},
method => {
name => 'optional',
default_arguments => 1,
check_argument_count => 0,
+ named_parameters => 1,
attrs => ':method',
shift => '$self',
+ invocant => 1,
},
classmethod => {
name => 'optional',
default_arguments => 1,
check_argument_count => 0,
+ named_parameters => 1,
attributes => ':method',
shift => '$class',
+ invocant => 1,
},
);
for my $k (keys %type_map) {
sub import {
my $class = shift;
- @_ or @_ = {
- fun => 'function',
- method => 'method',
- };
+ if (!@_) {
+ @_ = {
+ fun => 'function',
+ method => 'method',
+ };
+ }
+ if (@_ == 1 && $_[0] eq ':strict') {
+ @_ = {
+ fun => 'function_strict',
+ method => 'method_strict',
+ };
+ }
if (@_ == 1 && ref($_[0]) eq 'HASH') {
- @_ = map [$_, $_[0]{$_}], keys %{$_[0]}
- or return;
+ @_ = map [$_, $_[0]{$_}], keys %{$_[0]};
}
my %spec;
: 1
;
$clean{check_argument_count} = !!delete $type{check_argument_count};
+ $clean{invocant} = !!delete $type{invocant};
+ $clean{named_parameters} = !!delete $type{named_parameters};
%type and confess "Invalid keyword property: @{[keys %type]}";
;
$flags |= FLAG_DEFAULT_ARGS if $type->{default_arguments};
$flags |= FLAG_CHECK_NARGS if $type->{check_argument_count};
+ $flags |= FLAG_INVOCANT if $type->{invocant};
+ $flags |= FLAG_NAMED_PARAMS if $type->{named_parameters};
$^H{HINTK_FLAGS_ . $kw} = $flags;
$^H{HINTK_SHIFT_ . $kw} = $type->{shift};
$^H{HINTK_ATTRS_ . $kw} = $type->{attrs};
method set_name($name) {
$self->{name} = $name;
}
-
+
+ # method with explicit invocant
+ method new($class: %init) {
+ return bless { %init }, $class;
+ }
+
# function with default arguments
fun search($haystack, $needle = qr/^(?!)/, $offset = 0) {
...
}
-
+
# method with default arguments
method skip($amount = 1) {
$self->{position} += $amount;
=pod
+ use Function::Parameters qw(:strict);
+
+ fun greet($x) {
+ print "Hello, $x\n";
+ }
+
+ greet "foo", "bar";
+ # Dies at runtime with "Too many arguments for fun greet"
+
+ greet;
+ # Dies at runtime with "Not enough arguments for fun greet"
+
+=cut
+
+=pod
+
# use different keywords
use Function::Parameters {
proc => 'function',
This module lets you use parameter lists in your subroutines. Thanks to
L<PL_keyword_plugin|perlapi/PL_keyword_plugin> it works without source filters.
-WARNING: This is my first attempt at writing L<XS code|perlxs> and I have
-almost no experience with perl's internals. So while this module might
-appear to work, it could also conceivably make your programs segfault.
-Consider this module alpha quality.
-
=head2 Basic stuff
To use this new functionality, you have to use C<fun> instead of C<sub> -
=pod
+ use Function::Parameters ':strict';
+ # is equivalent to #
+ use Function::Parameters { fun => 'function_strict', method => 'method_strict' };
+
+=pod
+
The following shortcuts are deprecated and may be removed from a future version
of this module:
# is equivalent to #
use Function::Parameters { 'foo' => 'function', 'bar' => 'method' };
-That is, if you want to pass arguments to L<Function::Parameters>, use a
-hashref, not a list of strings.
+That is, if you want to create custom keywords with L<Function::Parameters>,
+use a hashref, not a list of strings.
-You can customize the properties of the generated keywords even more by passing
+You can tune the properties of the generated keywords even more by passing
a hashref instead of a string. This hash can have the following keys:
=over
this keyword will automatically L<shift|perlfunc/shift> its first argument into
a local variable whose name is specified here.
+=item C<invocant>
+
+Valid values: booleans. This lets users of this keyword specify an explicit
+invocant, that is, the first parameter may be followed by a C<:> (colon)
+instead of a comma and will by initialized by shifting the first element off
+C<@_>.
+
+You can combine C<shift> and C<invocant>, in which case the variable named in
+C<shift> serves as a default shift target for functions that don't specify an
+explicit invocant.
+
=item C<attributes>, C<attrs>
Valid values: strings that are valid source code for attributes. Any value
check_argument_count => 0,
attributes => ':method',
shift => '$self',
+ invocant => 1,
}
C<'method_strict'> is like C<'method'> but with
check_argument_count => 0,
attributes => ':method',
shift => '$class',
+ invocant => 1,
}
C<'classmethod_strict'> is like C<'classmethod'> but with
As an example, the following declaration uses every available feature
(subroutine name, parameter list, default arguments, prototype, default
-attributes, attributes, argument count checks, and implicit C<$self>):
+attributes, attributes, argument count checks, and implicit C<$self> overriden
+by an explicit invocant declaration):
- method foo($x, $y, $z = sqrt 5)
+ method foo($this: $x, $y, $z = sqrt 5)
:($$$;$)
:lvalue
:Banana(2 + 2)
sub foo ($$$;$) :method :lvalue :Banana(2 + 2) {
sub foo ($$$;$);
- Carp::croak "Not enough arguments for method foo" if @_ < 2;
+ Carp::croak "Not enough arguments for method foo" if @_ < 3;
Carp::croak "Too many arguments for method foo" if @_ > 4;
- my $self = shift;
+ my $this = shift;
my ($x, $y, $z) = @_;
$z = sqrt 5 if @_ < 3;
...