view release on metacpan or  search on metacpan

lib/Business/Fixflo/Property.pm  view on Meta::CPAN

package Business::Fixflo::Property;

=head1 NAME

Business::Fixflo::Property

=head1 DESCRIPTION

A class for a fixflo property, extends L<Business::Fixflo::Resource>

=cut

use strict;
use warnings;

use Moo;
use Try::Tiny;
use Carp qw/ carp /;
use Business::Fixflo::Exception;
use Business::Fixflo::Address;

extends 'Business::Fixflo::Resource';

=head1 ATTRIBUTES

    Id
    AssignedAgent
    AssignedTeam
    BlockId
    BlockName
    Brand
    Created
    ExternalPropertyRef
    PropertyManager
    PropertyAddressId
    KeyReference
    Address
    Addresses
    Issues
    IsDeleted
    IsNotManaged
    UpdateDate
    Warranties

=cut

use Carp qw/ confess /;

has [ qw/
    Id
    AssignedAgent
    AssignedTeam
    BlockId
    BlockName
    Brand
    Created
    ExternalPropertyRef
    PropertyAddressId
    PropertyManager
    KeyReference
    UpdateDate
    Warranties
    IsDeleted
    IsNotManaged
/ ] => (
    is => 'rw',
);

has 'PropertyId' => (
    is      => 'rw',
    lazy    => 1,
    default => sub { shift->Id || 0 },
);

has 'Address' => (
    is   => 'rw',
    isa  => sub {