The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Test::Magpie::Util - Internal utility functions for Test::Magpie

FUNCTIONS

extract_method_name

    $method_name = extract_method_name($full_method_name)

From a fully qualified method name such as Foo::Bar::baz, will return just the method name (in this example, baz).

get_attribute_value

    $value = get_attribute_value($object, $attr_name)

Gets value of Moose attributes that have no accessors by accessing the class' underlying meta-object.

has_caller_package

    $bool = has_caller_package($package_name)

Returns whether the given $package is in the current call stack.

match

    $bool = match($a, $b)

Match 2 values for equality.

AUTHORS

  • Oliver Charles <oliver.g.charles@googlemail.com>

  • Steven Lee <stevenwh.lee@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Oliver Charles.

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