aDriv4 website!

Linux web1060.sh.fuk1 4.18.0-425.19.2.lve.el7h.x86_64 #1 SMP Thu Apr 6 13:40:55 UTC 2023 x86_64
Apache
127.0.0.1

File Name : Object.pm

package Class::MOP::Object;
BEGIN {
  $Class::MOP::Object::AUTHORITY = 'cpan:STEVAN';
}
{
  $Class::MOP::Object::VERSION = '2.1005';
}

use strict;
use warnings;

use Carp qw(confess);
use Scalar::Util 'blessed';

# introspection

sub meta {
    require Class::MOP::Class;
    Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
}

sub _new {
    Class::MOP::class_of(shift)->new_object(@_);
}

# RANT:
# Cmon, how many times have you written
# the following code while debugging:
#
#  use Data::Dumper;
#  warn Dumper $obj;
#
# It can get seriously annoying, so why
# not just do this ...
sub dump {
    my $self = shift;
    require Data::Dumper;
    local $Data::Dumper::Maxdepth = shift || 1;
    Data::Dumper::Dumper $self;
}

sub _real_ref_name {
    my $self = shift;
    return blessed($self);
}

sub _is_compatible_with {
    my $self = shift;
    my ($other_name) = @_;

return $self->isa($other_name);
}

sub _can_be_made_compatible_with {
    my $self = shift;
    return !$self->_is_compatible_with(@_)
        && defined($self->_get_compatible_metaclass(@_));
}

sub _make_compatible_with {
    my $self = shift;
    my ($other_name) = @_;

my $new_metaclass = $self->_get_compatible_metaclass($other_name);

confess "Can't make $self compatible with metaclass $other_name"
        unless defined $new_metaclass;

# can't use rebless_instance here, because it might not be an actual
    # subclass in the case of, e.g. moose role reconciliation
    $new_metaclass->meta->_force_rebless_instance($self)
        if blessed($self) ne $new_metaclass;

return $self;
}

sub _get_compatible_metaclass {
    my $self = shift;
    my ($other_name) = @_;

return $self->_get_compatible_metaclass_by_subclassing($other_name);
}

sub _get_compatible_metaclass_by_subclassing {
    my $self = shift;
    my ($other_name) = @_;
    my $meta_name = blessed($self) ? $self->_real_ref_name : $self;

if ($meta_name->isa($other_name)) {
        return $meta_name;
    }
    elsif ($other_name->isa($meta_name)) {
        return $other_name;
    }

return;
}

# ABSTRACT: Base class for metaclasses

__END__

=pod

=head1 NAME

Class::MOP::Object - Base class for metaclasses

=head1 VERSION

version 2.1005

=head1 DESCRIPTION

This class is a very minimal base class for metaclasses.

=head1 METHODS

This class provides a few methods which are useful in all metaclasses.

=over 4

=item B<< Class::MOP::???->meta >>

This returns a L<Class::MOP::Class> object.

=item B<< $metaobject->dump($max_depth) >>

This method uses L<Data::Dumper> to dump the object. You can pass an
optional maximum depth, which will set C<$Data::Dumper::Maxdepth>. The
default maximum depth is 1.

=back

=head1 AUTHOR

Moose is maintained by the Moose Cabal, along with the help of many contributors. See L<Moose/CABAL> and L<Moose/CONTRIBUTORS> for details.

=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

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2023-08-25 11:53:02
..	dir	-	root/root	0755	2023-08-25 11:53:13
Class	dir	-	root/root	0755	2023-08-25 11:53:02
Method	dir	-	root/root	0755	2023-08-25 11:53:02
Mixin	dir	-	root/root	0755	2023-08-25 11:53:02
Attribute.pm	text/plain	28.76 KB	root/root	0644	2013-08-07 05:02:28
Class.pm	text/plain	64.66 KB	root/root	0644	2013-08-07 05:02:28
Deprecated.pm	text/plain	1.18 KB	root/root	0644	2013-08-07 05:02:28
Instance.pm	text/plain	12.94 KB	root/root	0644	2013-08-07 05:02:28
Method.pm	text/plain	7.29 KB	root/root	0644	2013-08-07 05:02:28
MiniTrait.pm	text/plain	1.76 KB	root/root	0644	2013-08-07 05:02:28
Mixin.pm	text/plain	1.11 KB	root/root	0644	2013-08-07 05:02:28
Module.pm	text/plain	3.47 KB	root/root	0644	2013-08-07 05:02:28
Object.pm	text/plain	3.04 KB	root/root	0644	2013-08-07 05:02:28
Package.pm	text/plain	11.16 KB	root/root	0644	2013-08-07 05:02:28

For more Private tool come to me!

https://t.me/aDriv4vz