[perl5.git] / t / lib / TieIn.pm

package TieIn;

sub TIEHANDLE {
    bless( \(my $scalar), $_[0]);
}

sub write {
    my $self = shift;
    $$self .= join '', @_;
}

sub READLINE {
    my $self = shift;
    $$self =~ s/^(.*\n?)//;
    return $1;
}

sub EOF {
    my $self = shift;
    return !length $$self;
}

1;
Commit	Line	Data
479d2113 MS	1	package TieIn;
	2
	3	sub TIEHANDLE {
	4	bless( \(my $scalar), $_[0]);
	5	}
	6
	7	sub write {
	8	my $self = shift;
	9	$$self .= join '', @_;
	10	}
	11
	12	sub READLINE {
	13	my $self = shift;
	14	$$self =~ s/^(.*\n?)//;
	15	return $1;
	16	}
	17
	18	sub EOF {
	19	my $self = shift;
	20	return !length $$self;
	21	}
	22
	23	1;