view release on metacpan or  search on metacpan

eg/nyaaproxy.psgi  view on Meta::CPAN

            $htresponse = $httpobject->get( $requesturl );

            if( $htresponse->is_success ) {

                $htcontents = $htresponse->content;
                $nekonyaaaa = Acme::Nyaa->new;

                if( $htresponse->content_type =~ m{\Atext/(?:plain|html)} ) {

                    $tmp = [ split( "\n", $htcontents ) ];
                    map { $_ .= "\n" } @$tmp;
                    $htcontents = $nekonyaaaa->straycat( $tmp, 1 );
                }

                return [ 
                    $htresponse->status, 
                    [ 'Content-Type' => $htresponse->content_type ],
                    [ $htcontents ],
                ];

            } else {

lib/Acme/Nyaa/Ja.pm  view on Meta::CPAN

    my $argv = shift // return q();
    my $noun = shift // 0;

    my $ref1 = ref $argv;
    my $data = [];
    my $text = q();

    my $nekobuffer = q();
    my $leftbuffer = q();
    my $buffersize = 144;
    my $entityrmap = {
        '、' => '、',
        '。' => '。',
    };

    return q() unless $ref1 =~ m/(?:ARRAY|SCALAR)/;
    push @$data, $ref1 eq 'ARRAY' ? @$argv : $$argv;
    return q() unless scalar @$data;

    for my $r ( @$data ) {

lib/Acme/Nyaa/Ja.pm  view on Meta::CPAN

            eval { 
                $self->reckon( \$r );
                $nekobuffer .=  $self->toutf8( $r );
            };
            next if $@;

        } else {
            $nekobuffer .= $r;
        }

        for my $e ( keys %$entityrmap ) {
            # Convert character entity reference to character itself.
            next unless $nekobuffer =~ m/$e/;
            $nekobuffer =~ s/$e/$entityrmap->{ $e }/g;
        }

        if( length $nekobuffer < $buffersize ) {

            if( $nekobuffer =~ m/(.+$RxPeriod)(.*)/msx ) {

                $nekobuffer = $1;
                $leftbuffer = $2;

            } else {