… | |
… | |
1725 | |
1725 | |
1726 | package AnyEvent::CondVar; |
1726 | package AnyEvent::CondVar; |
1727 | |
1727 | |
1728 | our @ISA = AnyEvent::CondVar::Base::; |
1728 | our @ISA = AnyEvent::CondVar::Base::; |
1729 | |
1729 | |
|
|
1730 | # only to be used for subclassing |
|
|
1731 | sub new { |
|
|
1732 | my $class = shift; |
|
|
1733 | bless AnyEvent->condvar (@_), $class |
|
|
1734 | } |
|
|
1735 | |
1730 | package AnyEvent::CondVar::Base; |
1736 | package AnyEvent::CondVar::Base; |
1731 | |
1737 | |
1732 | #use overload |
1738 | #use overload |
1733 | # '&{}' => sub { my $self = shift; sub { $self->send (@_) } }, |
1739 | # '&{}' => sub { my $self = shift; sub { $self->send (@_) } }, |
1734 | # fallback => 1; |
1740 | # fallback => 1; |