File Coverage

blib/lib/Alien/libwebsockets.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	7	12	58.3
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	34	40	85.0

package Alien::libwebsockets;
use strict;
use warnings;
use parent 'Alien::Base';

our $VERSION = '0.03';

sub has_extensions {
    my ($class) = @_;
    my @libs = $class->dynamic_libs;
    return 0 unless @libs;

    my @nm_cmd = $^O eq 'darwin'                              ? ('nm', '-gU')
               : $^O =~ /^(?:freebsd|openbsd|netbsd|dragonfly)$/ ? ('nm', '-g')
               :                                                    ('nm', '-D');

    foreach my $lib (@libs) {
        my $found = 0;
        if (open my $fh, '-|', @nm_cmd, $lib) {
            while (<$fh>) {
                if (/lws_extension_callback_pm_deflate/) { $found = 1; last }
            }
            close $fh;
        }
        return 1 if $found;
    }

    return 0;
}

1;

__END__