From: Vincent Pit Date: Thu, 19 Feb 2009 23:50:35 +0000 (+0100) Subject: This is 0.31 X-Git-Tag: v0.31^0 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=a809ca0a164c0534e02c8b07998331ffd73d0951;p=perl%2Fmodules%2FVariable-Magic.git This is 0.31 --- diff --git a/Changes b/Changes index 1e1e019..4ad9adb 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,16 @@ Revision history for Variable-Magic +0.31 2009-02-19 23:50 UTC + + Doc : A somewhat better introduction. The FUNCTION section was moved + before CONSTANTS and HISTORY since it's more important. And + 'assignation' is really 'assignment', says Ricardo. :) + + Fix : The op_info features are now thread safe. + + Fix : Segfaults that occured when trying to get the op name during + global destruction. + + Fix : Segfaults and wrong "Unknown error" exceptions that happened + when dieing in require caused a free callback to fire. + Thanks Florian Ragwitz for reporting. + 0.30 2009-02-12 17:05 UTC + Add : You can now get in all the callbacks either the name or a B::OP object representing the current op if you pass the new 'op_info' diff --git a/META.yml b/META.yml index 1008465..1656441 100644 --- a/META.yml +++ b/META.yml @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Variable-Magic -version: 0.30 +version: 0.31 abstract: Associate user-defined magic to variables from Perl. author: - Vincent Pit diff --git a/README b/README index 4b74012..171a7ca 100644 --- a/README +++ b/README @@ -2,7 +2,7 @@ NAME Variable::Magic - Associate user-defined magic to variables from Perl. VERSION - Version 0.30 + Version 0.31 SYNOPSIS use Variable::Magic qw/wizard cast dispell/; @@ -15,27 +15,51 @@ SYNOPSIS $a = 3 # (nothing) DESCRIPTION - Magic is Perl way of enhancing objects. This mechanism let the user add + Magic is Perl way of enhancing objects. This mechanism lets the user add extra data to any variable and hook syntaxical operations (such as - access, assignation or destruction) that can be applied to it. With this - module, you can add your own magic to any variable without the pain of - the C API. + access, assignment or destruction) that can be applied to it. With this + module, you can add your own magic to any variable without having to + write a single line of XS. - Magic differs from tieing and overloading in several ways : + You'll realize that these magic variables look a lot like tied + variables. It's not surprising, as tied variables are implemented as a + special kind of magic, just like any 'irregular' Perl variable : scalars + like $!, $( or $^W, the %ENV and %SIG hashes, the @ISA array, "vec()" + and "substr()" lvalues, thread::shared variables... They all share the + same underlying C API, and this module gives you direct access to it. - * Magic isn't copied on assignation (as for blessed references) : you - attach it to variables, not values. + Still, the magic made available by this module differs from tieing and + overloading in several ways : - * It doesn't replace the original semantics : magic callbacks trigger - before the original action take place, and can't prevent it to - happen. + * It isn't copied on assignment. - * It's mostly invisible at the Perl level : magical and non-magical - variables cannot be distinguished with "ref", "reftype" or another - trick. + You attach it to variables, not values (as for blessed references). - * It's notably faster, since perl's way of handling magic is lighter - by nature, and there's no need for any method resolution. + * It doesn't replace the original semantics. + + Magic callbacks trigger before the original action take place, and + can't prevent it to happen. This makes catching individual events + easier than with "tie", where you have to provide fallbacks methods + for all actions by usually inheriting from the correct "Tie::Std*" + class and overriding individual methods in your own class. + + * It's type-agnostic. + + The same magic can be applied on scalars, arrays, hashes, subs or + globs. But the same hook (see below for a list) may trigger + differently depending on the the type of the variable. + + * It's mostly invisible at the Perl level. + + Magical and non-magical variables cannot be distinguished with + "ref", "tied" or another trick. + + * It's notably faster. + + Mainly because perl's way of handling magic is lighter by nature, + and because there's no need for any method resolution. Also, since + you don't have to reimplement all the variable semantics, you only + pay for what you actually use. The operations that can be overloaded are : @@ -54,7 +78,7 @@ DESCRIPTION This magic is a little special : it is called when the 'size' or the 'length' of the variable has to be known by Perl. Typically, it's the magic involved when an array is evaluated in scalar context, but - also on array assignation and loops ("for", "map" or "grep"). The + also on array assignment and loops ("for", "map" or "grep"). The callback has then to return the length as an integer. * "clear" @@ -115,103 +139,6 @@ DESCRIPTION an unique numerical signature is attached to each kind of magic (i.e. each set of callbacks for magic operations). -PERL MAGIC HISTORY - The places where magic is invoked have changed a bit through perl - history. Here's a little list of the most recent ones. - - * 5.6.x - - *p14416* : 'copy' and 'dup' magic. - - * 5.8.9 - - *p28160* : Integration of *p25854* (see below). - - *p32542* : Integration of *p31473* (see below). - - * 5.9.3 - - *p25854* : 'len' magic is no longer called when pushing an element - into a magic array. - - *p26569* : 'local' magic. - - * 5.9.5 - - *p31064* : Meaningful 'uvar' magic. - - *p31473* : 'clear' magic wasn't invoked when undefining an array. - The bug is fixed as of this version. - - * 5.10.0 - - Since "PERL_MAGIC_uvar" is uppercased, "hv_magic_check()" triggers - 'copy' magic on hash stores for (non-tied) hashes that also have - 'uvar' magic. - - * 5.11.x - - *p32969* : 'len' magic is no longer invoked when calling "length" - with a magical scalar. - - *p34908* : 'len' magic is no longer called when pushing / unshifting - an element into a magical array in void context. The "push" part was - already covered by *p25854*. - -CONSTANTS - "SIG_MIN" - The minimum integer used as a signature for user-defined magic. - - "SIG_MAX" - The maximum integer used as a signature for user-defined magic. - - "SIG_NBR" - SIG_NBR = SIG_MAX - SIG_MIN + 1 - - "MGf_COPY" - Evaluates to true iff the 'copy' magic is available. - - "MGf_DUP" - Evaluates to true iff the 'dup' magic is available. - - "MGf_LOCAL" - Evaluates to true iff the 'local' magic is available. - - "VMG_UVAR" - When this constant is true, you can use the "fetch,store,exists,delete" - callbacks on hashes. - - "VMG_COMPAT_ARRAY_PUSH_NOLEN" - True for perls that don't call 'len' magic when you push an element in a - magical array. - - "VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID" - True for perls that don't call 'len' magic when you unshift in void - context an element in a magical array. - - "VMG_COMPAT_ARRAY_UNDEF_CLEAR" - True for perls that call 'clear' magic when undefining magical arrays. - - "VMG_COMPAT_SCALAR_LENGTH_NOLEN" - True for perls that don't call 'len' magic when taking the "length" of a - magical scalar. - - "VMG_PERL_PATCHLEVEL" - The perl patchlevel this module was built with, or 0 for non-debugging - perls. - - "VMG_THREADSAFE" - True iff this module could have been built with thread-safety features - enabled. - - "VMG_OP_INFO_NAME" - Value to pass with "op_info" to get the current op name in the magic - callbacks. - - "VMG_OP_INFO_OBJECT" - Value to pass with "op_info" to get a "B::OP" object representing the - current op in the magic callbacks. - FUNCTIONS "wizard" wizard sig => ..., @@ -366,18 +293,114 @@ FUNCTIONS # Dispell now. If $wiz isn't a signature, undef can't be returned. die 'no such magic or error' unless dispell $x, $wiz; +CONSTANTS + "SIG_MIN" + The minimum integer used as a signature for user-defined magic. + + "SIG_MAX" + The maximum integer used as a signature for user-defined magic. + + "SIG_NBR" + SIG_NBR = SIG_MAX - SIG_MIN + 1 + + "MGf_COPY" + Evaluates to true iff the 'copy' magic is available. + + "MGf_DUP" + Evaluates to true iff the 'dup' magic is available. + + "MGf_LOCAL" + Evaluates to true iff the 'local' magic is available. + + "VMG_UVAR" + When this constant is true, you can use the "fetch,store,exists,delete" + callbacks on hashes. + + "VMG_COMPAT_ARRAY_PUSH_NOLEN" + True for perls that don't call 'len' magic when you push an element in a + magical array. + + "VMG_COMPAT_ARRAY_UNSHIFT_NOLEN_VOID" + True for perls that don't call 'len' magic when you unshift in void + context an element in a magical array. + + "VMG_COMPAT_ARRAY_UNDEF_CLEAR" + True for perls that call 'clear' magic when undefining magical arrays. + + "VMG_COMPAT_SCALAR_LENGTH_NOLEN" + True for perls that don't call 'len' magic when taking the "length" of a + magical scalar. + + "VMG_PERL_PATCHLEVEL" + The perl patchlevel this module was built with, or 0 for non-debugging + perls. + + "VMG_THREADSAFE" + True iff this module could have been built with thread-safety features + enabled. + + "VMG_OP_INFO_NAME" + Value to pass with "op_info" to get the current op name in the magic + callbacks. + + "VMG_OP_INFO_OBJECT" + Value to pass with "op_info" to get a "B::OP" object representing the + current op in the magic callbacks. + +PERL MAGIC HISTORY + The places where magic is invoked have changed a bit through perl + history. Here's a little list of the most recent ones. + + * 5.6.x + + *p14416* : 'copy' and 'dup' magic. + + * 5.8.9 + + *p28160* : Integration of *p25854* (see below). + + *p32542* : Integration of *p31473* (see below). + + * 5.9.3 + + *p25854* : 'len' magic is no longer called when pushing an element + into a magic array. + + *p26569* : 'local' magic. + + * 5.9.5 + + *p31064* : Meaningful 'uvar' magic. + + *p31473* : 'clear' magic wasn't invoked when undefining an array. + The bug is fixed as of this version. + + * 5.10.0 + + Since "PERL_MAGIC_uvar" is uppercased, "hv_magic_check()" triggers + 'copy' magic on hash stores for (non-tied) hashes that also have + 'uvar' magic. + + * 5.11.x + + *p32969* : 'len' magic is no longer invoked when calling "length" + with a magical scalar. + + *p34908* : 'len' magic is no longer called when pushing / unshifting + an element into a magical array in void context. The "push" part was + already covered by *p25854*. + EXPORT The functions "wizard", "gensig", "getsig", "cast", "getdata" and "dispell" are only exported on request. All of them are exported by the tags ':funcs' and ':all'. - The constants "SIG_MIN", "SIG_MAX", "SIG_NBR", "MGf_COPY", "MGf_DUP", - "MGf_LOCAL" and "VMG_UVAR" are also only exported on request. They are - all exported by the tags ':consts' and ':all'. + All the constants are also only exported on request, either individually + or by the tags ':consts' and ':all'. CAVEATS If you store a magic object in the private data slot, the magic won't be - accessible by "getdata" since it's not copied by assignation. The only + accessible by "getdata" since it's not copied by assignment. The only way to address this would be to return a reference. If you define a wizard with a "free" callback and cast it on itself, diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm index 1820a55..4359fef 100644 --- a/lib/Variable/Magic.pm +++ b/lib/Variable/Magic.pm @@ -13,13 +13,13 @@ Variable::Magic - Associate user-defined magic to variables from Perl. =head1 VERSION -Version 0.30 +Version 0.31 =cut our $VERSION; BEGIN { - $VERSION = '0.30'; + $VERSION = '0.31'; } =head1 SYNOPSIS