CPAN::Groonga

package WebService::TeamCity::Entity;

use v5.10;
use strict;
use warnings;
use namespace::autoclean;

our $VERSION = '0.04';

use DateTime;
use DateTime::Format::Strptime;
use Types::Standard qw( HashRef InstanceOf Str );

use Moo::Role;

has client => (
    is       => 'ro',
    isa      => InstanceOf ['WebService::TeamCity'],
    required => 1,
);

has href => (
    is       => 'ro',
    isa      => Str,
    required => 1,
);

has _full_data => (
    is      => 'ro',
    isa     => HashRef,
    lazy    => 1,
    builder => '_build_full_data',
);

with 'WebService::TeamCity::Inflator';

sub _build_full_data {
    my $self = shift;

    my $uri = $self->client->base_uri;
    return $self->client->decoded_json_for( uri => $uri . $self->href );
}

my $parser = DateTime::Format::Strptime->new( pattern => '%Y%m%dT%H%M%S%z' );

## no critic (ProhibitUnusedPrivateSubroutines)
sub _parse_datetime {
    return $parser->parse_datetime( $_[1] );
}

1;

# ABSTRACT: Role for anything addressable via the TeamCity REST API

__END__

=pod

=encoding UTF-8

=head1 NAME

WebService::TeamCity::Entity - Role for anything addressable via the TeamCity REST API

=head1 VERSION

version 0.04

=head1 SUPPORT

Bugs may be submitted through L<https://github.com/maxmind/WebService-TeamCity/issues>.

=head1 AUTHOR

Dave Rolsky <autarch@urth.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2018 by MaxMind, Inc.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut