[Bps-public-commit] r19804 - in Net-Google-Code/trunk/lib/Net/Google/Code: Role

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu May 28 23:14:20 2009
New Revision: 19804

Added:
   Net-Google-Code/trunk/lib/Net/Google/Code/Role/Predefined.pm
Modified:
   Net-Google-Code/trunk/lib/Net/Google/Code/TypicalRoles.pm

Log:
added predefined role

Added: Net-Google-Code/trunk/lib/Net/Google/Code/Role/Predefined.pm
==============================================================================
--- (empty file)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Role/Predefined.pm	Thu May 28 23:14:20 2009
@@ -0,0 +1,79 @@
+package Net::Google::Code::Role::Predefined;
+use Moose::Role;
+use Params::Validate ':all';
+use JSON;
+with 'Net::Google::Code::Role::Fetchable';
+
+has 'predefined_status' => (
+    isa => 'HashRef',
+    is  => 'rw',
+);
+
+has 'predefined_labels' => (
+    isa => 'ArrayRef',
+    is  => 'rw',
+);
+
+no Moose::Role;
+
+sub load_predefined {
+    my $self = shift;
+    my $class = ref $self || $self;
+    my $last_name;
+    $last_name = lc $1 if $class =~ /::(\w+)$/;
+
+    my $js = $self->fetch( $self->base_url . "feeds/${last_name}Options" );
+    return unless $js;
+
+    # we need to convert js to valid json that JSON can parse
+    $js =~ s/'/"/g;
+    $js =~ s/\b(\w+):/"$1":/g;
+    my $object = from_json $js;
+    return unless $object;
+
+    $self->predefined_status( { open => [], closed => [] } );
+    for my $type (qw/open closed/) {
+        for ( @{ $object->{$type} } ) {
+            push @{ $self->predefined_status->{$type} }, $_->{name};
+        }
+    }
+
+    $self->predefined_labels( [] );
+    for ( @{ $object->{labels} } ) {
+        push @{ $self->predefined_labels }, $_->{name};
+    }
+
+    return 1;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::Google::Code::Role::Predefined - Predefined Role
+
+
+=head1 DESCRIPTION
+
+=head1 INTERFACE
+
+=over 4
+
+=item load_predefined
+
+=back
+
+=head1 AUTHOR
+
+sunnavy  C<< <sunnavy at bestpractical.com> >>
+
+=head1 LICENCE AND COPYRIGHT
+
+Copyright 2009 Best Practical Solutions.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/TypicalRoles.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/TypicalRoles.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/TypicalRoles.pm	Thu May 28 23:14:20 2009
@@ -7,6 +7,7 @@
 with 'Net::Google::Code::Role::Authentication';
 with 'Net::Google::Code::Role::DateTime';
 with 'Net::Google::Code::Role::Pageable';
+with 'Net::Google::Code::Role::Predefined';
 
 no Moose::Role;