Lines Matching refs:val

39     my ($sock_opts, $key, $val, $msg) = @_;
44     my $dval = defined $val ? "'$val'" : "<undef>";
48     if (! defined $val) {
55         my $len = length($val);
57         my $expected = "VALUE $key $expect_flags $len\r\n$val\r\nEND\r\n";
72     my $val;
86         read $sock, $val , $len;
91         return ($identifier,$val);
97     my ($sock_opts, $identifier, $key, $val, $msg) = @_;
102     my $dval = defined $val ? "'$val'" : "<undef>";
106     if (! defined $val) {
113         my $len = length($val);
115         my $expected = "VALUE $key $expect_flags $len $identifier\r\n$val\r\nEND\r\n";