File Coverage

blib/lib/URI/Parse/Instagram.pm

Criterion	Covered	Total	%
statement	11	25	44.0
branch	0	8	0.0
condition	0	2	0.0
subroutine	4	6	66.6
pod	1	1	100.0
total	16	42	38.1

package URI::Parse::Instagram;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2025-03-27'; # DATE
our $DIST = 'URI-Parse-Instagram'; # DIST
our $VERSION = '0.001'; # VERSION

use Exporter qw(import);
our @EXPORT_OK = qw(parse_instagram_url);

our %SPEC;

our $re_proto_http  = qr!(?:https?://)!i;
our $re_user        = qr/(?:[A-Za-z0-9_]+|[A-Za-z0-9_](?:\.?[A-Za-z0-9])+[A-Za-z0-9_])/;
our $re_user_strict = qr/(?:[A-Za-z0-9_]{1,30}|[A-Za-z0-9_](?:[A-Za-z0-9_]|\.(?!\.)){1,28}[A-Za-z0-9_])/;
our $re_end_or_q    = qr/(?:[?&#]|\z)/;

$SPEC{parse_instagram_url} = {
    v => 1.1,
    summary => 'Parse information from an instagram URL',
    description => <<'MARKDOWN',

Return a hash of information from an Instagram URL, or undef if URL cannot be
parsed. Can potentially return `_errors` or `_warnings` keys, each being an
array of error/warning messages.

MARKDOWN
    args => {
        url => {
            schema => 'str*',
            req => 1,
            pos => 0,
        },
    },
    args_as => 'array',
    result => {
        schema => 'hash',
    },
    result_naked => 1,
    examples => [
        {
            name => "insta/USER #1",
            args => {url=>'https://www.instagram.com/foo'},
            result => {user=>'foo'},
        },
        {
            name => "insta/USER #2",
            args => {url=>'https://www.instagram.com/foo.bar/'},
            result => {user=>'foo.bar'},
        },
        {
            name => "insta/USER #3",
            args => {url=>'https://www.instagram.com/foo_bar?igsh=blah&utm_source=qr'},
            result => {user=>'foo_bar'},
        },

        {
            name => 'unknown',
            args => {url=>'https://www.google.com/'},
            result => undef,
        },
    ],
};
sub parse_instagram_url {
    my $url = shift;

    my $res;
    my $code_add_error = sub {
        $res->{_errors} //= [];
        push @{ $res->{_errors} }, $_[0];
    };

    # metacpan
    if ($url =~ s!\A$re_proto_http?(?:www\.)?instagram\.com/?!!i) {

        #$res->{site} = 'insta';

        if ($url =~ m!\A($re_user)/*$re_end_or_q!i) {
            $res->{user} = lc $1;
            $code_add_error->("Username too long") if length($res->{user}) > 30;
            $code_add_error->("Invalid username") unless $res->{user} =~ m!\A$re_user_strict\z!;
        } else {
            $code_add_error->("Cannot find username");
        }
    } else {
        return undef; ## no critic: Subroutines::ProhibitExplicitReturnUndef
    }

    $res;
}

1;
# ABSTRACT: Parse information from an instagram URL

__END__