Acme-Holy

 view release on metacpan or  search on metacpan

Holy.pm  view on Meta::CPAN

use strict;

require Exporter;
require DynaLoader;

use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );

	$VERSION	= '0.03';
	@ISA		= qw( Exporter DynaLoader );
	@EXPORT		= qw( holy                );
	@EXPORT_OK	= qw( blessed divine hallowed consecrated sacred sacrosanct );

bootstrap Acme::Holy $VERSION;

1;
__END__
=pod

=head1 NAME

Acme::Holy - Test whether references are blessed.

Holy.pm  view on Meta::CPAN

imported upon request:

  use Acme::Holy qw( blessed );

The following aliases are supported:

=over 4

=item * B<blessed()>

=item * B<consecrated()>

=item * B<divine()>

=item * B<hallowed()>

=item * B<sacred()>

=item * B<sacrosanct()>

=back

Holy.xs  view on Meta::CPAN

MODULE = Acme::Holy		PACKAGE = Acme::Holy		

SV *
holy( rv )
		SV * rv;

	PROTOTYPE: $

	ALIAS:
		blessed     = 1
		consecrated = 2
		divine      = 3
		hallowed    = 4
		sacred      = 5
		sacrosanct  = 6

	PREINIT:
		SV		*sv;
		char	*name;

	CODE:

README  view on Meta::CPAN

  Method Aliases
    To reflect that there are many terms for referring to something that is
    blessed, Acme::Holy offers a list of aliases for holy() that may be
    imported upon request:

      use Acme::Holy qw( blessed );

    The following aliases are supported:

    * blessed()
    * consecrated()
    * divine()
    * hallowed()
    * sacred()
    * sacrosanct()

ACKNOWLEDGEMENTS
	The idea for this module came from a conversation I had with David
	Cantrell <david@cantrell.org.uk>. However, the lack of RTFM is a
	clear failing on my part. It was obviously a good idea, otherwise
	someone wouldn't have already written it.

t/3aliases.t  view on Meta::CPAN

#
# Ensure the holy aliases work.

use strict;
use Test::More	tests => 12;
use Test::Exception;

# load Acme::Damn and the aliases
my	@aliases;
BEGIN {
	@aliases = qw( blessed consecrated divine hallowed sacred sacrosanct );
}

# load Acme::Holy
use Acme::Holy @aliases;

foreach my $alias ( @aliases ) {
	no strict 'refs';

	# create a reference, and strify it
	my	$ref	= [];