File Coverage

blib/lib/Hydrogen/Scalar.pm

Criterion	Covered	Total	%
statement	31	43	72.0
branch	2	10	20.0
condition			n/a
subroutine	10	13	76.9
pod	5	5	100.0
total	48	71	67.6

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

package Hydrogen::Scalar;

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

=head1 NAME

Hydrogen::Scalar - a standard library for scalars

=head1 VERSION

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

=cut

=head1 FUNCTIONS

Each function expects a scalar as its first argument.

=cut

use Exporter::Shiny qw(
    get
    make_getter
    make_setter
    set
    stringify
);

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

Gets the current value of the scalar.

=cut

sub get {
    my $__REF__ = \$_[0];

    package Hydrogen::Scalar::__SANDBOX__;
    @_ == 1
      or Hydrogen::croak( "Wrong number of parameters for get; usage: "
          . "Hydrogen::Scalar::get( \$scalar )" );
    $$__REF__;
}

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

Returns a getter coderef.

=cut

sub make_getter {
    my $__REF__ = \$_[0];

    package Hydrogen::Scalar::__SANDBOX__;
    @_ == 1
      or Hydrogen::croak( "Wrong number of parameters for make_getter; usage: "
          . "Hydrogen::Scalar::make_getter( \$scalar )" );
    my $s = $__REF__;
    sub { unshift @_, $s; $$__REF__ }
}

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

Returns a setter coderef.

=cut

sub make_setter {
    my $__REF__ = \$_[0];

    package Hydrogen::Scalar::__SANDBOX__;
    @_ == 1
      or Hydrogen::croak( "Wrong number of parameters for make_setter; usage: "
          . "Hydrogen::Scalar::make_setter( \$scalar )" );
    my $s = $__REF__;
    sub { my $val = shift; unshift @_, $s; ( ${$__REF__} = $val ) }
}

=head2 C<< set( $scalar, $value ) >>

Sets the scalar to a new value.

=cut

sub set {
    my $__REF__ = \$_[0];

    package Hydrogen::Scalar::__SANDBOX__;
    @_ == 2
      or Hydrogen::croak( "Wrong number of parameters for set; usage: "
          . "Hydrogen::Scalar::set( \$scalar, \$value )" );
    ( ${$__REF__} = $_[1] );
}

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

Gets the current value of the scalar, but as a string.

=cut

sub stringify {
    my $__REF__ = \$_[0];

    package Hydrogen::Scalar::__SANDBOX__;
    @_ == 1
      or Hydrogen::croak( "Wrong number of parameters for stringify; usage: "
          . "Hydrogen::Scalar::stringify( \$scalar )" );
    do { my $shv_tmp = $$__REF__; sprintf q(%s), $shv_tmp; }
}

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::Scalar -all;

To import a particular function, use:

    use Hydrogen::Scalar 'make_setter';

To rename functions:

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

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

    use Hydrogen::Scalar -lexical, '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.