403 Forbidden

Your IP: 216.73.216.184
Server IP: 65.21.180.239
Server: Linux gowhm.eplangoweb.com 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.0.30
Buat File | Buat Folder

Dir : ~/proc/self/root/usr/share/perl5/Data/Perl/String/

Edit File: MooseLike.pm

package Data::Perl::String::MooseLike;
$Data::Perl::String::MooseLike::VERSION = '0.001008';
# ABSTRACT: data::Perl::String subclass that simulates Moose's native traits.

use strictures 1;

use Role::Tiny::With;
use Class::Method::Modifiers;

with 'Data::Perl::Role::String';

my @methods = grep { $_ ne 'new' } Role::Tiny->methods_provided_by('Data::Perl::Role::String');

around @methods => sub {
    my $orig = shift;

$orig->(\$_[0], @_[1..$#_]);
};

1;

=pod

=encoding UTF-8

=head1 NAME

Data::Perl::String::MooseLike - data::Perl::String subclass that simulates Moose's native traits.

=head1 VERSION

version 0.001008

=head1 SYNOPSIS

use Data::Perl::Collection::String::MooseLike;

my $string = Data::Perl::Collection::String::MooseLike->new("this is a string\n");

$string->chomp;

$string->substr(); # etc

=head1 DESCRIPTION

This class provides a wrapper and methods for interacting with a string. All
methods are written to emulate/match existing behavior that exists with Moose's
native traits. You should probably be looking at Data::Perl's documentation instead.

=head1 SEE ALSO

=over 4

=item * L<Data::Perl>

=item * L<Data::Perl::Role::Collection::String>

=back

=head1 AUTHOR

Matthew Phillips <mattp@cpan.org>

=head1 COPYRIGHT AND LICENSE

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

=cut

__END__
==pod