Net-Fluidinfo
view release on metacpan or search on metacpan
lib/Net/Fluidinfo/Namespace.pm view on Meta::CPAN
package Net::Fluidinfo::Namespace;
use Moose;
extends 'Net::Fluidinfo::Base';
has description => (is => 'rw', isa => 'Str');
has parent => (is => 'ro', isa => 'Maybe[Net::Fluidinfo::Namespace]', lazy_build => 1);
has namespace_names => (is => 'ro', isa => 'ArrayRef[Str]', writer => '_set_namespace_names');
has tag_names => (is => 'ro', isa => 'ArrayRef[Str]', writer => '_set_tag_names');
with 'Net::Fluidinfo::HasObject', 'Net::Fluidinfo::HasPath';
our %FULL_GET_FLAGS = (
description => 1,
namespace_names => 1,
tag_names => 1
);
sub _build_parent {
lib/Net/Fluidinfo/Object.pm view on Meta::CPAN
use Net::Fluidinfo::Value::NonNative;
use Net::Fluidinfo::Value::Null;
use Net::Fluidinfo::Value::Boolean;
use Net::Fluidinfo::Value::Integer;
use Net::Fluidinfo::Value::Float;
use Net::Fluidinfo::Value::String;
use Net::Fluidinfo::Value::ListOfStrings;
has id => (is => 'ro', isa => 'Str', writer => '_set_id', predicate => 'has_id');
has about => (is => 'rw', isa => 'Str', predicate => 'has_about');
has tag_paths => (is => 'ro', isa => 'ArrayRef[Str]', writer => '_set_tag_paths', default => sub { [] });
sub create {
my $self = shift;
my $payload = $self->has_about ? $self->json->encode({about => $self->about}) : undef;
$self->fin->post(
path => $self->abs_path('objects'),
headers => $self->fin->headers_for_json,
payload => $payload,
on_success => sub {
( run in 0.733 second using v1.01-cache-2.11-cpan-5f2e87ce722 )