Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub ready {
- my $self = shift;
- my @results = $self->{Select}->can_read(0);
- if($results[0] == $self->{Socket}) {
- return 1;
- }
- else {
- return 0;
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement