From 695895e26618cbfaa89183848cbeadd7ab9a0d5b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 23 Jun 2018 19:59:49 -0400
Subject: initial implementation

---
 lib/WWW/YNAB/ModelHelpers.pm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 lib/WWW/YNAB/ModelHelpers.pm

(limited to 'lib/WWW/YNAB/ModelHelpers.pm')

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;
-- 
cgit v1.2.3-54-g00ecf