sub any {
  my ($class, @promises) = @_;

  my $any = ref($proto) ? $proto->_clone : $proto->new;

  my $rejections = [];
  my $remaining = scalar @promises;

  foreach (@promises) {
    return $any->resolve($_) if ! @_ or ! blessed $_ or ! $_->can('then');
  }
  for my $i (0 .. $#promises) {
    $promises[$i]->then(
      sub { $any->resolve(@_) },
      sub {
        $rejections[$i] = [ @_ ];
        $any->reject(@$rejections) if --$remaining <= 0;
      }
    );
  }

  return $any;
}