package Google::Adwords::SiteKeywordGroups;
use strict;
use warnings;

use version; our $VERSION = qv('0.0.1');

use base 'Google::Adwords::Data';

my @fields = qw/
    _groups
    _keywords
    /;

__PACKAGE__->mk_accessors(@fields);

sub new
{
    my $proto = shift;

    my $class = ref $proto || $proto;

    if (@_)
    {
        my $obj     = $class->SUPER::new();
        my $hashref = shift;
        for ( keys %{$hashref} )
        {
            $obj->$_( $hashref->{$_} );
        }
        return $obj;
    }
    else
    {
        return $class->SUPER::new();
    }
} # end sub new

# groups should always return an array ref
sub groups
{
    my $self = shift;

    # if its a put
    if (@_)
    {
        my $put_ref = [];

        for (@_)
        {
            if ( ref $_ ne 'ARRAY' )
            {
                push @{$put_ref}, $_;
            }
            else
            {
                push @{$put_ref}, @{$_};
            }
        }

        $self->set( '_groups', $put_ref );
        return $self;
    } # end if (@_)

    return $self->get('_groups');
} # end sub groups

# keywords should always return an array ref
sub keywords
{
    my $self = shift;

    # if its a put
    if (@_)
    {
        my $put_ref = [];

        for (@_)
        {
            if ( ref $_ ne 'ARRAY' )
            {
                push @{$put_ref}, $_;
            }
            else
            {
                push @{$put_ref}, @{$_};
            }
        }

        $self->set( '_keywords', $put_ref );
        return $self;
    } # end if (@_)

    return $self->get('_keywords');
} # end sub keywords

1;

__END__

=pod

=head1 NAME
 
Google::Adwords::SiteKeywordGroups - A Google Adwords SiteKeywordGroups Object
 

=head1 VERSION
 
This documentation refers to Google::Adwords::SiteKeywordGroups version 0.0.1

=head1 DESCRIPTION
  
This object is a read-only object used in returned calls from Google Adwords API.

More info is available here - 

L<http://www.google.com/apis/adwords/developer/SiteKeywordGroups.html>

 
 
=head1 METHODS 
 
B<Accessors (read only)>
    
groups - The keywords that the results are grouped by. The groups are ordered by decreasing relevance to the site.

keywords - The keywords generated from the url, along with the index of the group they belong to. The keywords are ordered by decreasing relevance to the site. It is an arrayref of Google::Adwords::SiteKeyword objects


=head1 AUTHOR
 
Mathieu Jondet <mathieu@eulerian.com

Rohan Almeida <rohan@almeida.in>

 
 
=head1 LICENSE AND COPYRIGHT
 
Copyright (c) 2006 Rohan Almeida <rohan@almeida.in>. All rights
reserved.

This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.