Guest User

Untitled

a guest
Jan 22nd, 2018
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. my ( $self, $section ) = @_;
  2. my $class = ( ref $self ) || $self;
  3.  
  4. my $arg = $section->{payload};
  5.  
  6. my $twitter_conf = { hash_tags => _defined_or( $arg, twitter_hash_tags => '#perl #cpan' ) };
  7. my $extra_hash = _defined_or( $arg, twitter_extra_hash_tags => q{}, 1 );
  8. $twitter_conf->{hash_tags} .= q{ } . $extra_hash if $extra_hash;
  9. my $warn_no_git = _if_git_versions( $arg, [1], [0] );
Add Comment
Please, Sign In to add comment