File Coverage

blib/lib/nonsense.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	26	26	100.0

package nonsense;
BEGIN {
  $nonsense::VERSION = '0.01';
}
# ABSTRACT: no-nonsense perl
use strict;
use warnings;
use true;
use namespace::autoclean ();

sub unimport {
    my ($class, $command, @args) = @_;
    my $into = caller;
    strict->import;
    warnings->import;
    true->import;
    # return $into unless defined $command;

    # if( $command eq 'class' ){
    #     require Moose;
    #     Moose->import({ into => $into });
    # }
    # elsif( $command eq 'role' ){
    #     require Moose::Role;
    #     Moose::Role->import({ into => $into });
    # }
    # elsif( $command eq 'library' ){
    #     require Sub::Exporter;
    #     Sub::Exporter::setup_exporter({
    #         into => $into,
    #         @args,
    #     });
    # }
    # elsif( $command eq 'type library' ){
    #     require MooseX::Types;
    #     require MooseX::Types::Moose;
    #     MooseX::Types::Moose->import({ into => $into }, ':all');

    #     my $types = join ', ', map { '"'. quotemeta($_). '"' } @args;
    #     eval "package $into; MooseX::Types->import(-declare => [$types])";
    # }
    # else {
    #     die "unknown command $command";
    # }

    # if( $command eq 'class' || $command eq 'role' ){
    namespace::autoclean->import(
        -cleanee => $into,
    );
    # }

    return $into;
}



=pod

=head1 NAME

nonsense - no-nonsense perl

=head1 VERSION

version 0.01

=head1 SYNOPSIS

    package Foo;
    no nonsense;

=head1 DESCRIPTION

This is my contribution to the module-that-enables-pragmas-for-me
meme.  It enables strict, warnings, automatically makes your module
return true, and automatically cleans out your namespace.

And, let's be honest, "no nonsense" is the best name for a pragma
ever.

=head1 BUGS

If you C, strict and warnings will not be enabled.  What
nonsense!

=head1 TODO

If you look at the commented-out code in C, I might extend
this module to allow even more boilerplate-free programming.  If you
want a type library, you just say C.  If
you want a class, you just say C.

This module should integrate with the L pragma, so the degree of
nonsense that your module

=head1 EVAN CARROLL

Someone mentioned that releasing a module like this makes me look like
Evan Carroll.  I disagree, as the words "but maintained" appear
nowhere in the program text.

=head1 AUTHOR

Jonathan Rockway

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by Jonathan Rockway.

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

=cut


__END__