Yet Another CPAN Grep

WebService-Rackspace-CloudFiles ( C/CK/CKRAS/WebService-Rackspace-CloudFiles-2.03.tar.gz, CKRAS, 2023; MetaCPAN )

WebService-Rackspace-CloudFiles/lib/WebService/Rackspace/CloudFiles.pm ( view source; MetaCPAN )

rvice::Rackspace::CloudFiles::ConnCache;
use LWP::UserAgent::Determined;
use URI::QueryParam;
use JSON::Any;
use Carp qw(confess);
our $VERSION = '2.03';

my $DEBUG = 0;

has 'user'    => ( is => 'ro'

f    = shift;
    my $request = HTTP::Request->new( 'GET', 
        $self->storage_url . '?format=json',
        [ 'X-Auth-Token' => $self->token ] );
    my $response = $self->_request($request);

error' if !$response->is_success;
    my @containers;

    foreach my $container_data ( @{JSON::Any->from_json($response->content)} ) {
        push @containers, $self->container(%{$container_data});

WebService-Rackspace-CloudFiles ( C/CK/CKRAS/WebService-Rackspace-CloudFiles-2.03.tar.gz, CKRAS, 2023; MetaCPAN )

WebService-Rackspace-CloudFiles/lib/WebService/Rackspace/CloudFiles/Container.pm ( view source; MetaCPAN )

ool Str Num Int HashRef InstanceOf);
use WebService::Rackspace::CloudFiles::Object::Iterator;
use JSON::Any;
use Carp qw(confess);
 
has 'cloudfiles' =>
    ( is => 'ro', isa => InstanceOf['WebService

$cdn_enabled = $response->header('X-CDN-Enabled');
    $self->cdn_enabled(ref $cdn_enabled eq ref JSON::Any->true ? 1 : 0 );
    $self->ttl( $response->header('X-TTL') );
    $self->log_retention( $re

 );
            $url->query_param( 'prefix', $prefix );
            $url->query_param( 'format', 'json' );
            my $request = HTTP::Request->new( 'GET', $url,
                [ 'X-Auth-Token' =