sub svninfo()

in ARCHIVE/OLD-from-apache-cms/lib/view.pm [401:414]

• 13 lines of code
• 1 McCabe index (conditional complexity)

sub svninfo {
  my $source = $_[0];
  my %info;
  my $receiver = sub {
    my $svninfo = $_[1];
    $info{rev} = $svninfo->last_changed_rev;
    $info{date} = $svninfo->last_changed_date / 1000000;
    $info{author} = $svninfo->last_changed_author;
  };

  my $ctx = SVN::Client->new;
  $ctx->info($source, undef, undef, $receiver, 0);
  return \%info;
}