The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DJabberd::Stanza::StreamFeatures;
use strict;
use warnings;
use base qw(DJabberd::Stanza);

sub on_recv_from_server {
    my ($self, $conn) = @_;
    $conn->set_rcvd_features($self);
}

sub acceptable_from_server { 1 }

# TODO: add methods like ->supports_tls, ->supports_sasl, etc...

1;