Added lots more modules from lintian. Maemian appears to work.

[maemian] / lib / Maemian / Output.pm

diff --git a/lib/Maemian/Output.pm b/lib/Maemian/Output.pm
index 745abfc..af40f10 100644 (file)
--- a/lib/Maemian/Output.pm
+++ b/lib/Maemian/Output.pm
@@ -39,23 +39,23 @@ BEGIN {
 
 =head1 NAME
 
-Lintian::Output - Lintian messaging handling
+Maemian::Output - Maemian messaging handling
 
 =head1 SYNOPSIS
 
     # non-OO
-    use Lintian::Output qw(:messages)
+    use Maemian::Output qw(:messages)
 
-    $Lintian::Output::GLOBAL->verbose(1);
+    $Maemian::Output::GLOBAL->verbose(1);
 
     msg("Something interesting");
     v_msg("Something less interesting");
     debug_msg(3, "Something very specfific");
 
     # OO
-    use Lintian::Output;
+    use Maemian::Output;
 
-    my $out = new Lintian::Output;
+    my $out = new Maemian::Output;
 
     $out->quiet(1);
     $out->msg("Something interesting");
@@ -64,12 +64,12 @@ Lintian::Output - Lintian messaging handling
 
 =head1 DESCRIPTION
 
-Lintian::Output is used for all interaction between lintian and the user.
+Maemian::Output is used for all interaction between lintian and the user.
 It is designed to be easily extendable via subclassing.
 
-To simplify usage in the most common cases, many Lintian::Output methods
+To simplify usage in the most common cases, many Maemian::Output methods
 can be used as class methods and will therefor automatically use the object
-$Lintian::Output::GLOBAL unless their first argument C<isa('Lintian::Output')>.
+$Maemian::Output::GLOBAL unless their first argument C<isa('Maemian::Output')>.
 
 =cut
 
@@ -80,7 +80,7 @@ use Tags ();
 
 =head1 ACCESSORS
 
-The following fields define the behaviours of Lintian::Output.
+The following fields define the behaviours of Maemian::Output.
 
 =over 4
 
@@ -135,7 +135,7 @@ Maemian::Output->mk_accessors(qw(verbose debug quiet color colors stdout
 my %default_colors = ( 'E' => 'red' , 'W' => 'yellow' , 'I' => 'cyan',
                       'P' => 'green' );
 
-our $GLOBAL = new Lintian::Output;
+our $GLOBAL = new Maemian::Output;
 
 sub new {
     my ($class, %options) = @_;
@@ -154,7 +154,7 @@ sub new {
 =head1 CLASS/INSTANCE METHODS
 
 These methods can be used both with and without an object.  If no object
-is given, they will fall back to the $Lintian::Output::GLOBAL object.
+is given, they will fall back to the $Maemian::Output::GLOBAL object.
 
 =over 4
 
@@ -309,7 +309,7 @@ sub print_tag {
 
     $self->_print('', "$code: $pkg_info->{pkg}$type", "$tag$information");
     if (!$self->issued_tag($tag_info->{tag}) and $self->showdescription) {
-       my $info = Lintian::Tag::Info->new($tag_info->{tag});
+       my $info = Maemian::Tag::Info->new($tag_info->{tag});
        if ($info) {
            my $description;
            if ($self->_do_color && $self->color eq 'html') {
@@ -327,7 +327,7 @@ sub print_tag {
 =item C<print_start_pkg($pkg_info)>
 
 Called before lintian starts to handle each package.  The version in
-Lintian::Output uses v_msg() for output.  Called from Tags::select_pkg().
+Maemian::Output uses v_msg() for output.  Called from Tags::select_pkg().
 
 =cut
 
@@ -341,7 +341,7 @@ sub print_start_pkg {
 =item C<print_start_pkg($pkg_info)>
 
 Called after lintian is finished with a package.  The version in
-Lintian::Output does nothing.  Called from Tags::select_pkg() and
+Maemian::Output does nothing.  Called from Tags::select_pkg() and
 Tags::reset_pkg().
 
 =cut
@@ -399,7 +399,7 @@ If you override these three methods, you can change
 the calling convention for this method to pretty much
 whatever you want.
 
-The version in Lintian::Output prints the strings in
+The version in Maemian::Output prints the strings in
 @args, one per line, each line preceded by $lead to
 the I/O handle given in $stream.
 
@@ -446,18 +446,18 @@ sub _do_color {
 
 =item C<_global_or_object(@args)>
 
-If $args[0] is a object which satisfies C<isa('Lintian::Output')>
-returns @args, otherwise returns C<($Lintian::Output::GLOBAL, @_)>.
+If $args[0] is a object which satisfies C<isa('Maemian::Output')>
+returns @args, otherwise returns C<($Maemian::Output::GLOBAL, @_)>.
 
 =back
 
 =cut
 
 sub _global_or_object {
-    if (ref($_[0]) and $_[0]->isa('Lintian::Output')) {
+    if (ref($_[0]) and $_[0]->isa('Maemian::Output')) {
        return @_;
     } else {
-       return ($Lintian::Output::GLOBAL, @_);
+       return ($Maemian::Output::GLOBAL, @_);
     }
 }
 
@@ -466,7 +466,7 @@ __END__
 
 =head1 EXPORTS
 
-Lintian::Output exports nothing by default, but the following export
+Maemian::Output exports nothing by default, but the following export
 tags are available:
 
 =over 4
@@ -483,7 +483,8 @@ Exports all the methods in L<CLASS METHODS>
 
 =head1 AUTHOR
 
-Originally written by Frank Lichtenheld <djpig@debian.org> for Lintian.
+Originally written by Frank Lichtenheld <djpig@debian.org> for Maemian.
+Modified by Jeremiah C. Foster <jeremiah@maemo.org> for maemian.
 
 =head1 SEE ALSO