view release on metacpan or  search on metacpan

lib/Scalar/Dynamizer.pm  view on Meta::CPAN

use Exporter 'import';
our @EXPORT_OK = qw(dynamize);

use overload
  'bool'   => sub { ${ $_[0] } },
  '""'     => sub { ${ $_[0] } },
  '0+'     => sub { ${ $_[0] } },
  fallback => 1;

sub dynamize(&) {
    my ($code) = @_;
    my $scalar;

    if ( ref($code) ne 'CODE' ) {
        croak('dynamize{} requires a code reference');
    }

    tie $scalar, 'Scalar::Dynamizer::Tie', $code;

    return bless \$scalar, __PACKAGE__;