File Coverage

blib/lib/Hydrogen/Curry/Scalar.pm

Criterion	Covered	Total	%
statement	40	45	88.8
branch	5	10	50.0
condition			n/a
subroutine	12	17	70.5
pod	5	5	100.0
total	62	77	80.5

# This file was autogenerated.
use 5.008001;
use strict;
use warnings;
no warnings qw( void once );
use Hydrogen ();
use Hydrogen::Scalar ();

package Hydrogen::Curry::Scalar;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.021001';

=head1 NAME

Hydrogen::Curry::Scalar - easily curry functions from Hydrogen::Scalar

=head1 VERSION

This documentation is for Hydrogen::Curry::Scalar 0.021001,
which is based on Sub::HandlesVia::HandlerLibrary::Scalar 0.050005.

=cut

=head1 FUNCTIONS

Each function expects a scalar as its only argument and returns a coderef.

=cut

use Exporter::Shiny qw(
    curry_get
    curry_make_getter
    curry_make_setter
    curry_set
    curry_stringify
);

=head2 C<< curry_get( $scalar ) >>

Curry the first argument of C<< Hydrogen::Scalar::get >>.

=cut

sub curry_get {
    @_ == 1
        or Hydrogen::croak(
            "Wrong number of parameters in signature for curry_get: got %d, %s",
            scalar(@_), "expected exactly 1 parameter"
        );
    (!!1)
        or Hydrogen::croak(
            "Type check failed in signature for curry_get: %s should be %s",
            "\\$_[0]", "Any"
        );
    my $ref = \$_[0];
    return sub { Hydrogen::Scalar::get( $$ref, @_ ) };
}

=head2 C<< curry_make_getter( $scalar ) >>

Curry the first argument of C<< Hydrogen::Scalar::make_getter >>.

=cut

sub curry_make_getter {
    @_ == 1
        or Hydrogen::croak(
            "Wrong number of parameters in signature for curry_make_getter: got %d, %s",
            scalar(@_), "expected exactly 1 parameter"
        );
    (!!1)
        or Hydrogen::croak(
            "Type check failed in signature for curry_make_getter: %s should be %s",
            "\\$_[0]", "Any"
        );
    my $ref = \$_[0];
    return sub { Hydrogen::Scalar::make_getter( $$ref, @_ ) };
}

=head2 C<< curry_make_setter( $scalar ) >>

Curry the first argument of C<< Hydrogen::Scalar::make_setter >>.

=cut

sub curry_make_setter {
    @_ == 1
        or Hydrogen::croak(
            "Wrong number of parameters in signature for curry_make_setter: got %d, %s",
            scalar(@_), "expected exactly 1 parameter"
        );
    (!!1)
        or Hydrogen::croak(
            "Type check failed in signature for curry_make_setter: %s should be %s",
            "\\$_[0]", "Any"
        );
    my $ref = \$_[0];
    return sub { Hydrogen::Scalar::make_setter( $$ref, @_ ) };
}

=head2 C<< curry_set( $scalar ) >>

Curry the first argument of C<< Hydrogen::Scalar::set >>.

=cut

sub curry_set {
    @_ == 1
        or Hydrogen::croak(
            "Wrong number of parameters in signature for curry_set: got %d, %s",
            scalar(@_), "expected exactly 1 parameter"
        );
    (!!1)
        or Hydrogen::croak(
            "Type check failed in signature for curry_set: %s should be %s",
            "\\$_[0]", "Any"
        );
    my $ref = \$_[0];
    return sub { Hydrogen::Scalar::set( $$ref, @_ ) };
}

=head2 C<< curry_stringify( $scalar ) >>

Curry the first argument of C<< Hydrogen::Scalar::stringify >>.

=cut

sub curry_stringify {
    @_ == 1
        or Hydrogen::croak(
            "Wrong number of parameters in signature for curry_stringify: got %d, %s",
            scalar(@_), "expected exactly 1 parameter"
        );
    (!!1)
        or Hydrogen::croak(
            "Type check failed in signature for curry_stringify: %s should be %s",
            "\\$_[0]", "Any"
        );
    my $ref = \$_[0];
    return sub { Hydrogen::Scalar::stringify( $$ref, @_ ) };
}

1;

=head1 EXPORT

No functions are exported by this module by default. To import them all (this is usually a bad idea), use:

    use Hydrogen::Curry::Scalar -all;

To import a particular function, use:

    use Hydrogen::Curry::Scalar 'curry_make_setter';

To rename functions:

    use Hydrogen::Curry::Scalar 'curry_make_setter' => { -as => 'myfunc' };

On Perl 5.37.2+ (or if L is installed) you can import lexically:

    use Hydrogen::Curry::Scalar -lexical, 'curry_make_setter';

See L for more hints on importing.

=head1 BUGS

Please report any bugs to
L.

=head1 SEE ALSO

L,
L,
L,
L.

=head1 AUTHOR

Toby Inkster [e-mail].

=head1 COPYRIGHT AND LICENCE

This software is copyright (c) 2022-2025 by Toby Inkster.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=head1 DISCLAIMER OF WARRANTIES

THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.