Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
MkOrigtargz	[ DIR ]	drwxr-xr-x
Salsa	[ DIR ]	drwxr-xr-x
Uscan	[ DIR ]	drwxr-xr-x
Compression.pm	3.1 KB	-rw-r--r--
Config.pm	10.9 KB	-rw-r--r--
DB_File_Lock.pm	10.79 KB	-rw-r--r--
Debbugs.pm	11.57 KB	-rw-r--r--
JSONCache.pm	1.61 KB	-rw-r--r--
MkOrigtargz.pm	20.68 KB	-rw-r--r--
Output.pm	1.49 KB	-rw-r--r--
PackageDeps.pm	9.14 KB	-rw-r--r--
Packages.pm	8.93 KB	-rw-r--r--
Salsa.pm	9.39 KB	-rw-r--r--
Set.pm	2.87 KB	-rw-r--r--
Utils.pm	482 B	-rw-r--r--
Versort.pm	2.05 KB	-rw-r--r--

Code Editor : Output.pm

package Devscripts::Output;

use strict;
use Exporter 'import';
use File::Basename;
use constant accept => qr/^y(?:es)?\s*$/i;
use constant refuse => qr/^n(?:o)?\s*$/i;

our @EXPORT = (
    qw(ds_debug ds_extra_debug ds_verbose ds_warn ds_error
      ds_die ds_msg who_called $progname $verbose
      ds_prompt accept refuse $ds_yes)
);

# ACCESSORS
our ($verbose, $die_on_error, $ds_yes) = (0, 1, 0);

our $progname = basename($0);

sub printwarn {
    my ($msg, $w) = @_;
    chomp $msg;
    if ($w) {
        print STDERR "$msg\n";
    } else {
        print "$msg\n";
    }
}

sub ds_msg($) {
    my $msg = $_[0];
    printwarn "$progname: $msg";
}

sub ds_verbose($) {
    my $msg = $_[0];
    if ($verbose > 0) {
        printwarn "$progname info: $msg";
    }
}

sub who_called {
    return '' unless ($verbose > 1);
    my @out = caller(1);
    return " [$out[0]: $out[2]]";
}

sub ds_warn ($) {
    my $msg = $_[0];
    printwarn("$progname warn: $msg" . who_called, 1);
}

sub ds_debug($) {
    my $msg = $_[0];
    printwarn "$progname debug: $msg" if $verbose > 1;
}

sub ds_extra_debug($) {
    my $msg = $_[0];
    printwarn "$progname debug: $msg" if $verbose > 2;
}

*ds_die = \&ds_error;

sub ds_error($) {
    my $msg = $_[0];
    $msg = "$progname error: $msg" . who_called;
    if ($die_on_error) {
        print STDERR "$msg\n";
        exit 1;
    }
    printwarn($msg, 1);
}

sub ds_prompt {
    return 'yes' if ($ds_yes > 0);
    print STDERR shift;
    my $s = <STDIN>;
    chomp $s;
    return $s;
}

${this.title}

Code Editor : Output.pm