package WebGUI::Definition::Role::Object;

=head1 LEGAL

 -------------------------------------------------------------------
  WebGUI is Copyright 2001-2009 Plain Black Corporation.
 -------------------------------------------------------------------
  Please read the legal notices (docs/legal.txt) and the license
  (docs/license.txt) that came with this distribution before using
  this software.
 -------------------------------------------------------------------
  http://www.plainblack.com                     info@plainblack.com
 -------------------------------------------------------------------

=cut

use 5.010;
use Moose::Role;
use namespace::autoclean;
no warnings qw(uninitialized);

our $VERSION = '0.0.1';

sub get {
    my $self = shift;
    if (@_) {
        my $property = shift;
        if ($self->can($property)) {
            return $self->$property;
        }
        return undef;
    }
    my %properties = map { $_ => scalar $self->$_ } $self->meta->get_all_properties;
    return \%properties;
}

sub set {
    my $self = shift;
    my $properties = shift;
    for my $key ( keys %$properties ) {
        $self->$key($properties->{$key});
    }
    return 1;
}

sub update {
    my $self;
    $self->set(@_);
    if ($self->can('write')) {
        $self->write;
    }
}

1;