view release on metacpan or  search on metacpan

ex/reset-account.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use WebService::Google::Reader;

# Not sure if preferences should be reset. That would require
# storing the list of prefs and their defaults.

my $reader = WebService::Google::Reader->new(
    host     => 'www.inoreader.com',
    username => $ENV{GOOGLE_USERNAME},
    password => $ENV{GOOGLE_PASSWORD},
);

# Unsubscribe from all feeds.
my @feeds = $reader->feeds;
die $reader->error if $reader->error;