File Coverage

/.cpan/build/MOP-1.00-B2YG7M/blib/lib/MOP/MetaModule.pm

Criterion	Covered	Total	%
statement	11	14	78.5
branch	1	4	25.0
condition	1	3	33.3
subroutine	3	4	75.0
pod	3	3	100.0
total	19	28	67.8

###########################################
#    A Meta-Objects Protocol for Perl5    #
###########################################
# (c) Rodolphe Ortalo, 1997-1998
#Included in the ESOPE project of LAAS-CNRS

#$Id: MetaModule.pm,v 1.3 1999/02/10 15:16:41 ortalo Exp $

package MOP::MetaModule;

use strict;

##########################
# LOCAL CONSTANT SYMBOLS #
##########################
my $DEBUG = 0;

##################
#  META-METHODS  #
##################

# Default implementation of meta-methods for sub-classes

# We simply call the 'handle' meta-method
sub meta_method_call {
    my $that = shift; # This is me ('m' for meta... :-)
    # Same behavior if call for a base-class or base-object method
    print STDERR "meta_method_call called for $_[0]\n" if $DEBUG;
    $that->meta_handle_method_call(@_);
}

# And this method calls the base-level method (aka. base-method)
sub meta_handle_method_call {
    my $meta_that = shift;
    my $base_method = shift;
    my $base_that = shift;
    print STDERR "meta_handle_method_call: calling $base_that->$base_method\n"
	if $DEBUG;
    $base_that->$base_method(@_);
}

#############
#  METHODS  #
#############

# Creates a new (empty) meta-object from class or object
sub new {
    my $self = shift;
    my $type = ref($self) || $self;
    return bless {}, $type;
}

1; # Final true ending

__END__