view release on metacpan or  search on metacpan

lib/GoogleApps/Command/delete.pm  view on Meta::CPAN

package GoogleApps::Command::delete;
use Moose;
use Modern::Perl;
extends qw(MooseX::App::Cmd::Command);
# ABSTRACT: delete an user account
 
has username => (
   traits => [qw(Getopt)],
   isa => 'Str',
   is  => 'rw',
   cmd_aliases   => 'u',
   documentation => 'name of Google User Account to delete',
   required => 1,
);

sub execute {
   my ($self, $opt, $args) = @_;
   if ($self->app->api->DeleteUser($self->username)) {
      say STDERR "User '", $self->username, "' deleted!";
      return 1;
   }
   else {
      die "unknow error on deleting user!";
   }
};

1;