view release on metacpan or  search on metacpan

lib/HTML/Encoding.pm  view on Meta::CPAN

        _my_decode($enco, $data, Encode::FB_QUIET);
    });

    my @resu;
    
    foreach (grep { $_->[0] eq "meta" } @$meta)
    {
        my %hash = %{$_->[1]};
        next unless defined $hash{'content'};
        next unless exists $hash{'http-equiv'};
        next unless lc $hash{'http-equiv'} eq "content-type";
        my $char = encoding_from_content_type($hash{'content'});
        push @resu, $char if defined $char and length $char;
    }
    
    return unless @resu;
    return wantarray ? @resu : $resu[0];
}

sub xml_declaration_from_octets
{