| Class-MethodCache documentation | Contained in the Class-MethodCache distribution. |
Class::MethodCache - Manipulate Perl's method resolution cache
use Class::MethodCache;
Sets the CV slot of the glob to $coderef, and sets the cvgen slot of the glob to signify that this is a currently valid cache entry.
Overwriting a real method is an error. Use set_cvgen with get_class_gen first
to force this.
Adding a cache entry to a shared GV (get_gv_refcount > 1) is an error, too,
because the GV is shared by more than one stash and this will cause strange
behavior. Use set_cv and set_cvgen for that. Devel::Peek will probably
tell you wtf is going on.
Gets the CV slot of the glob if this is a currently valid cache entry.
Updates the cvgen slot to mark this cache entry as valid.
It is an error to update cvgen if it is not set but the CV slot is set, because that will overwrite a real method.
To force this behavior call set_cvgen with get_class_gen.
Remove the CV and reset the CVGEN of a glob.
Returns the current class generation for a class.
This is like get_pkg_gen in mro (See also MRO::Compat).
This is equal to PL_sub_generation under perls predating mro, but still
requires $class to be passed in for consistency.
This is provided mainly for convenience, for furthere manipuatlion of method caching please consult MRO::Compat, it has all the encessary functionality for manipulating cache invalidation. Using it in conjunction with Class::C3::XS is reccomended on perls below 5.9.5.
This differs from *{$glob}{CODE} in that it will return the cached code ref
if any, wheras accessing the code slot is more like GvCVu(gv) (which checks
that GvCVGEN is == 0 first).
Manipulate GvCV directly.
A value of undef will clear the field.
Returns the cvgen slot of the gv.
Manipulate GvCVGEN directly.
Any value greater than zero implies the GvCV is a cache entry. If GvCV is
not set then this is a cache of a failed lookup.
mro, MRO::Compat, Class::C3::XS
This module is maintained using Darcs. You can get the latest version from
http://nothingmuch.woobling.org/code, and use darcs send to commit
changes.
Yuval Kogman <nothingmuch@woobling.org>
Copyright (c) 2008 Yuval Kogman. All rights reserved This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Class-MethodCache documentation | Contained in the Class-MethodCache distribution. |
#!/usr/bin/perl package Class::MethodCache; use strict; use warnings; use vars qw($VERSION @ISA); BEGIN { $VERSION = '0.05'; local $@; eval { require XSLoader; __PACKAGE__->XSLoader::load($VERSION); 1; } or do { warn $@; require DynaLoader; push @ISA, 'DynaLoader'; __PACKAGE__->bootstrap($VERSION); }; } use Sub::Exporter -setup => { exports => [qw( get_gv_refcount set_cvgen get_cvgen set_cv get_cv get_class_gen delete_cv update_cvgen set_cached_method get_cached_method )], groups => { default => [qw( update_cvgen set_cached_method get_cached_method )], }, }; __PACKAGE__ __END__