File Coverage

blib/lib/WebService/BuzzurlAPI/Util.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	2	8	25.0
condition	2	9	22.2
subroutine	4	5	80.0
pod	2	2	100.0
total	22	43	51.1

package WebService::BuzzurlAPI::Util;

=pod

=head1 NAME

WebService::BuzzurlAPI::Util - Buzzurl WebService API utility module

=head1 VERSION

0.02

=head1 DESCRIPTION

Buzzurl WebService API utility module

=head1 METHOD

=cut

use strict;
use base qw(Exporter);
use Encode;

our(@EXPORT_OK, $PKG_REGEXP, $VERSION);

@EXPORT_OK = qw(drop_utf8flag urlencode);
$PKG_REGEXP = qr/^WebService::BuzzurlAPI/;
$VERSION = 0.02;

=pod

=head2 drop_utf8flag

Drop utf8flag

Example:

  my $str = WebService::BuzzurlAPI::Util::drop_utf8flag($utf8flagstr);

=cut

sub drop_utf8flag {

    my $str = (scalar @_ == 2 && (ref($_[0]) =~ $PKG_REGEXP || $_[0] =~ $PKG_REGEXP)) ? $_[1] : $_[0];
    if($str ne "" && Encode::is_utf8($str)){
        $str = Encode::encode_utf8($str);
    }
    return $str;
}

=pod

=head2 urlencode

URLEncoding

Example:

  my $str = WebService::BuzzurlAPI::Util::urlencode($str);

=cut

sub urlencode {

    my $str = (scalar @_ == 2 && (ref($_[0]) =~ $PKG_REGEXP || $_[0] =~ $PKG_REGEXP)) ? $_[1] : $_[0];
    if($str ne ""){
        $str =~ s/([^\w ])/"%" . unpack("H2", $1)/eg;
        $str =~ tr/ /+/;
    }
    return $str;
}

1;

__END__