File Coverage

blib/lib/Tie/Filter/Scalar.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch			n/a
condition			n/a
subroutine	7	9	77.7
pod			n/a
total	29	33	87.8

package Tie::Filter::Scalar;

use 5.008;
use strict;
use warnings;

use Tie::Filter;

our $VERSION = '1.02';

=head1 NAME

Tie::Filter::Scalar - Tie a facade around a scalar

=head1 DESCRIPTION

Don't use this package directly. Instead, see L.

=cut

sub TIESCALAR {
	my ($class, $scalar, %args) = @_;
	$args{WRAP} = $scalar;
	return bless \%args, $class;
}

sub FETCH {
	my $self = shift;
	Tie::Filter::_filter($$self{FETCH}, ${$$self{WRAP}});
}

sub STORE {
	my $self = shift;
	my $value = shift;
	${$$self{WRAP}} = Tie::Filter::_filter($$self{STORE}, $value);
}

sub UNTIE { }

sub DESTROY { }

=head1 SEE ALSO

L, L

=head1 AUTHOR

  Andrew Sterling Hanenkamp,

=head1 LICENSE AND COPYRIGHT

Copyright 2003 Andrew Sterling Hanenkamp. All Rights Reserved. This library is
free software; you can redistribute it and/or modify it under the same terms as
Perl itself.

=cut

1