initial implementation

1 files changed, 29 insertions, 0 deletions

diff --git a/lib/WWW/YNAB/ModelHelpers.pm b/lib/WWW/YNAB/ModelHelpers.pm
new file mode 100644
index 0000000..e61aa12
--- /dev/null
+++ b/lib/WWW/YNAB/ModelHelpers.pm
@@ -0,0 +1,29 @@
+package WWW::YNAB::ModelHelpers;
+use Moose::Role;
+
+sub model_from_data {
+    my $self = shift;
+    my ($class, $data, $server_knowledge) = @_;
+
+    my @init_args = grep {
+        $_ !~ /^_/
+    } map {
+        $_->init_arg
+    } $class->meta->get_all_attributes;
+
+    my %args = map {
+        $_ => $data->{$_}
+    } grep {
+        exists $data->{$_}
+    } @init_args;
+
+    if (defined $server_knowledge) {
+        $args{server_knowledge} = $server_knowledge;
+    }
+
+    $class->new(%args, _ua => $self->_ua);
+}
+
+no Moose::Role;
+
+1;