File: version-test

package info (click to toggle)
libvcs-perl 0.14-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 264 kB
  • ctags: 282
  • sloc: perl: 1,083; makefile: 567
file content (22 lines) | stat: -rwxr-xr-x 324 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl

use FindBin;
use lib "$FindBin::Bin/../lib";
use VCS;

die "Usage: $0 version-url\n" unless @ARGV == 1;

my $version = VCS::Version->new(@ARGV);

map {
    print "\$version->$_ = " . join("\n\t", $version->$_()) . "\n";
} qw(
    url
    path
    version
    author
    date
    reason
    tags
    text
);