view release on metacpan or  search on metacpan

Pr0n.pm  view on Meta::CPAN

	 $self->{'file'} = <FH>;
	 close(FH);

	 return $self;
}

sub DESTROY{}

sub AUTOLOAD {
	my $self = shift;
	my $flags = shift || undef;
	my $name = $AUTOLOAD;
	$name =~ s/.*://;

	my $clean_string; # store file with all other chars removed
	my $num;

	if($flags && $flags eq 'i') {
 		($clean_string = $self->{'file'}) =~ s/([^$name]+)//gi;
		if($clean_string) {
			$num = ($clean_string =~ s/$name/x/gi);
		}
	} else {
 		($clean_string = $self->{'file'}) =~ s/([^$name]+)//g;
		if($clean_string) {
			$num = ($clean_string =~ s/$name/x/g);
		}
	}