view release on metacpan or  search on metacpan

lib/App/Provision/Ssh.pm  view on Meta::CPAN

sub meet
{
    my $self = shift;

    my $file = $self->_keyfile();

    $self->recipe(
      [ 'mkdir', '.ssh' ],
      [ 'chmod', '700', '.ssh' ],
      [ 'ssh-keygen', '-t', $self->{keytype}, '-f', $file ],
      [ "cat $ENV{HOME}/.ssh/$file.pub | tr -d '\n' | pbcopy" ],
      [ 'echo', '* Now paste your public key into https://github.com/settings/ssh *' ],
    );
}

sub _keyfile
{
    # Set the keyfile attribute.
    my $self = shift;