package Acme::Unicorn::Horn::Blessed;

use strict;
use warnings;

BEGIN {
    use Exporter ();
    use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
    $VERSION     = 0.01;
    @ISA         = qw (Exporter);
    @EXPORT      = qw (horn);
    @EXPORT_OK   = qw ();
    %EXPORT_TAGS = ();
}

=head1 NAME

Acme::Unicorn::Horn::Blessed - A blessed horn of a unicorn untaints ev
+erything

=head1 SYNOPSIS

  use Acme::Unicorn::Horn::Blessed;
  $untainted = horn( $tainted );
  $untainted = horn( $tainted, blessed => 0 );

=head1 DESCRIPTION

I<A blessed horn of a unicorn untaints everything.>

This module untaints everything.        

=head1 USAGE

=head2 horn( tainted_variable, [options] )

Untaint a variable.

  my $untainted = horn( $tainted );

  # if we want to make sure no hackers can harm us, use an 'unblessed 
+horn of a unicorn'
  my $untainted = horn( $tainted, blessed => 0 );

=cut

sub horn {
        my $variable = shift;
        my %options = @_ if ( scalar @_ % 2 );

        my $foo;
        if ( exists $options{ blessed } and not $options{ blessed } ) 
+{
                $foo = undef;
        }
        else {
                ($foo) = ($variable =~ /^(.*)$/gs);
        }
        return $foo;
}

=head1 BUGS

        The obvious problems you will have with considering tainted va
+riables as untainted.

=head1 AUTHOR

        Bryan

=head1 COPYRIGHT

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

The full text of the license can be found in the
LICENSE file included with this module.

=head1 SEE ALSO

perl(1).

=cut

1;
[download]