CPAN::Groonga

#!/usr/bin/perl

use strict;
use warnings;

use WWW::Shopify;

package WWW::Shopify::Model::Menu;
use parent "WWW::Shopify::Model::Item";

my $fields; sub fields { return $fields; } 
BEGIN { $fields = {
	"handle" => new WWW::Shopify::Field::String::Handle(),
	"title" => new WWW::Shopify::Field::String(),
	"id" => new WWW::Shopify::Field::Identifier(),
#	"default" => new WWW::Shopify::Field::Boolean(),
	"items" => new WWW::Shopify::Field::Relation::Many("WWW::Shopify::Model::Menu::Item")
}; }
sub countable { return undef; }

sub creation_minimal { return qw(handle); }
sub creation_filled { return qw(id); }
sub update_fields { return qw(handle title links); }
sub update_filled { return qw(); }

sub needs_login { return 1; }
# Shopify recently just killed all their JSON apis for non-api stuff. Why? Who knows?
# They're just delaying the inevitable.
sub needs_form_encoding_create { return 1; }
sub needs_form_encoding_update { return 1; }
sub needs_form_encoding_delete { return 1; }

eval(__PACKAGE__->generate_accessors); die $@ if $@;

1;