Lines Matching refs:val

84     my ($sock_opts, $key, $val, $msg) = @_;
89     my $dval = defined $val ? "'$val'" : "<undef>";
93     if (! defined $val) {
100         my $len = length($val);
102         my $expected = "VALUE $key $expect_flags $len\r\n$val\r\nEND\r\n";
117     my $val;
131         read $sock, $val , $len;
136         return ($identifier,$val);
142     my ($sock_opts, $identifier, $key, $val, $msg) = @_;
147     my $dval = defined $val ? "'$val'" : "<undef>";
151     if (! defined $val) {
158         my $len = length($val);
160         my $expected = "VALUE $key $expect_flags $len $identifier\r\n$val\r\nEND\r\n";