Google::Adwords::SiteKeywordGroups - A Google Adwords SiteKeywordGroups Object

Google-Adwords documentation Contained in the Google-Adwords distribution.

Index

Code Index:

NAME

Top

Google::Adwords::SiteKeywordGroups - A Google Adwords SiteKeywordGroups Object

VERSION

Top

This documentation refers to Google::Adwords::SiteKeywordGroups version 0.0.1

DESCRIPTION

Top

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

More info is available here -

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

METHODS

Top

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

AUTHOR

Top

Mathieu Jondet <mathieu@eulerian.com

Rohan Almeida <rohan@almeida.in>

LICENSE AND COPYRIGHT

Top

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.

Google-Adwords documentation Contained in the Google-Adwords distribution. 
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__