| File: | lib/OpenAPI/Handler/Version.pm |
| Coverage: | 72.7% |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package OpenAPI; | ||||||
| 2 | |||||||
| 3 | 22 22 22 | 185 66 216 | use strict; | ||||
| 4 | 22 22 22 | 243 76 269 | use warnings; | ||||
| 5 | |||||||
| 6 | 22 22 22 | 241 69 304 | use FindBin; | ||||
| 7 | 22 22 22 | 262 69 296 | use OpenAPI; | ||||
| 8 | |||||||
| 9 | 22 22 22 | 232 68 215 | use vars qw($VERSION $Revision); | ||||
| 10 | |||||||
| 11 | sub trim { | ||||||
| 12 | 1 | 0 | 19 | (my $s = $_[0]) =~ s/\s+//gs; | |||
| 13 | 1 | 28 | $s; | ||||
| 14 | } | ||||||
| 15 | |||||||
| 16 | sub GET_version { | ||||||
| 17 | 1 | 0 | 8 | my ($self, $bits) = @_; | |||
| 18 | 1 | 15 | $Revision ||= trim(slurp("$FindBin::Bin/../revision")) || 'Unknown'; | ||||
| 19 | 1 | 8 | my $backend = $OpenAPI::BackendName; | ||||
| 20 | 1 | 9 | if ($backend eq 'PgFarm') { | ||||
| 21 | 0 | 0 | my $host = $OpenAPI::Backend::PgFarm::Host; | ||||
| 22 | 0 | 0 | if ($host =~ /[-\w]+/) { | ||||
| 23 | 0 | 0 | $host = $&; | ||||
| 24 | } | ||||||
| 25 | 0 | 0 | $backend .= " ($host)"; | ||||
| 26 | } | ||||||
| 27 | 1 | 19 | return "OpenAPI $VERSION (revision $Revision) with the $backend backend.\nCopyright (c) 2007-2008 Yahoo! China EEEE\n"; | ||||
| 28 | } | ||||||
| 29 | |||||||
| 30 | 1; | ||||||
| 31 | |||||||