… | |
… | |
905 | $cb->($_[0], substr $_[0]{rbuf}, 0, $len, ""); |
905 | $cb->($_[0], substr $_[0]{rbuf}, 0, $len, ""); |
906 | 1 |
906 | 1 |
907 | } |
907 | } |
908 | }; |
908 | }; |
909 | |
909 | |
910 | # compatibility with older API |
|
|
911 | sub push_read_chunk { |
|
|
912 | $_[0]->push_read (chunk => $_[1], $_[2]); |
|
|
913 | } |
|
|
914 | |
|
|
915 | sub unshift_read_chunk { |
|
|
916 | $_[0]->unshift_read (chunk => $_[1], $_[2]); |
|
|
917 | } |
|
|
918 | |
|
|
919 | =item line => [$eol, ]$cb->($handle, $line, $eol) |
910 | =item line => [$eol, ]$cb->($handle, $line, $eol) |
920 | |
911 | |
921 | The callback will be called only once a full line (including the end of |
912 | The callback will be called only once a full line (including the end of |
922 | line marker, C<$eol>) has been read. This line (excluding the end of line |
913 | line marker, C<$eol>) has been read. This line (excluding the end of line |
923 | marker) will be passed to the callback as second argument (C<$line>), and |
914 | marker) will be passed to the callback as second argument (C<$line>), and |
… | |
… | |
958 | $cb->($_[0], $1, $2); |
949 | $cb->($_[0], $1, $2); |
959 | 1 |
950 | 1 |
960 | } |
951 | } |
961 | } |
952 | } |
962 | }; |
953 | }; |
963 | |
|
|
964 | # compatibility with older API |
|
|
965 | sub push_read_line { |
|
|
966 | my $self = shift; |
|
|
967 | $self->push_read (line => @_); |
|
|
968 | } |
|
|
969 | |
|
|
970 | sub unshift_read_line { |
|
|
971 | my $self = shift; |
|
|
972 | $self->unshift_read (line => @_); |
|
|
973 | } |
|
|
974 | |
954 | |
975 | =item regex => $accept[, $reject[, $skip], $cb->($handle, $data) |
955 | =item regex => $accept[, $reject[, $skip], $cb->($handle, $data) |
976 | |
956 | |
977 | Makes a regex match against the regex object C<$accept> and returns |
957 | Makes a regex match against the regex object C<$accept> and returns |
978 | everything up to and including the match. |
958 | everything up to and including the match. |