/ 
Scalar-Util-Instance-0.001
++
 /  Scalar::Util::Instance
藤 吾郎
Endorse Fuji, Goro (gfx) on Coderwall
and 1 contributors

NAME

Scalar::Util::Instance - Generates and installs is-a predicates

VERSION

This document describes Scalar::Util::Instance version 0.001.

SYNOPSIS

    use Scalar::Util::Instance
        { for => 'Foo', as => 'is_a_Foo' },
        { for => 'Bar', as => 'is_a_Bar' },
    ;

    # ...
    if(is_a_Foo($_)){
        # ...
    }
    elsif(is_a_Bar($_)){
        # ...
    }

DESCRIPTION

Scalar::Util::Instance provides is-a predicates to look up an is-a hierarchy for specific classes. This is an alternative to blessed($obj) && $obj->isa(...), but is significantly faster than it.

INTERFACE

Utility functions

Scalar::Util::Instance->generate_for(ClassName, ?PredicateName)

Generates an is-a predicate function for ClassName.

If PredicateName is specified, the method installs the generated function as that name. Otherwise returns an anonymous CODE reference.

An is-a predicate is a function which is the same as the following:

    sub is_a_some_class {
        my($obj) = @_;
        return Scalar::Util::blessed($obj) && $obj->isa($ClassName);
    }

DEPENDENCIES

Perl 5.8.1 or later, and a C compiler.

BUGS

No bugs have been reported.

Please report any bugs or feature requests to the author.

SEE ALSO

Scalar::Util

Data::Util

AUTHOR

Goro Fuji (gfx) <gfuji(at)cpan.org>

LICENSE AND COPYRIGHT

Copyright (c) 2009, Goro Fuji (gfx). Some rights reserved.

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