The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME
    Parse::Deb::Control - parse and manipulate debian/control in a
    controlable way

SYNOPSIS
    Print out all "Package:" values lines

        use Parse::Deb::Control;

        my $parser = Parse::Deb::Control->new($control_txt);
        my $parser = Parse::Deb::Control->new(['path', 'to', 'debian', 'control']);
        my $parser = Parse::Deb::Control->new($fh);
    
        foreach my $para ($parser->get_paras('Package')) {
            print $para->{'Package'}, "\n";
        }

    or

        foreach my $entry ($parser->get_keys('Package')) {
            print ${$entry->{'value'}}, "\n";
        }

    Modify "Maintainer:"

        my $mantainer = 'someone@new';

        my $parser = Parse::Deb::Control->new($control_txt);
        foreach my $para ($parser->get_paras(qw{ Maintainer })) {
            $para->{'Maintainer'} =~ s/^ (\s*) (\S.*) $/ $maintainer\n/xms;
        }

    or

        my $parser = Parse::Deb::Control->new($control_txt);
        foreach my $src_pkg ($parser->get_keys(qw{ Maintainer })) {
            ${$src_pkg->{'value'}} =~ s/^ (\s*) (\S.*) $/ $maintainer\n/xms;
        }

    and

        print $parser->control;

DESCRIPTION
    This modules helps to automate changes in debian/control file. It tries
    hard to preserve the original structure so that diff on input and output
    can be made and it will be clear what was changed. There are 2 checks.
    First when original debian/control file processed it is generated back
    and compared to the original. The program dies if those two doesn't
    match. After making changes and creating new file. The result is parsed
    again and the same check is applied to make sure the file will be still
    parseable.

    See also Parse::DebControl for alternative.

PROPERTIES
        _control_src
        structure

METHODS
  new()
    Object constructor. Accepts anythign IO::Any->read() does to get
    debian/control from.

  content()
    Returns content of the debian/control. The return value is an array ref
    holding hashes representing control file paragraphs.

  control
    Returns text representation of a debian/control constructed from
    `<$self-'content>> and `<$self-'structure>>.

  get_keys
    Parameters are the requested keys from debian/control. Returns array of
    key/values of matching keys. Ex.

        {
            'key'   => 'Package',
            'value' => \"perl",
            'para'  => { ... one item from $self->content array ... },
        }

    Note that value is a pointer to scalar value so that it can be easyly
    modified if needed.

  get_paras
    Returns a paragraphs that has key(s) passed as argument.

AUTHOR
    Jozef Kutej, `<jkutej at cpan.org>'

BUGS
    Please report any bugs or feature requests to `bug-parse-deb-control at
    rt.cpan.org', or through the web interface at
    http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Parse-Deb-Control. I will
    be notified, and then you'll automatically be notified of progress on
    your bug as I make changes.

SUPPORT
    You can find documentation for this module with the perldoc command.

        perldoc Parse::Deb::Control

    You can also look for information at:

    * RT: CPAN's request tracker
        http://rt.cpan.org/NoAuth/Bugs.html?Dist=Parse-Deb-Control

    * AnnoCPAN: Annotated CPAN documentation
        http://annocpan.org/dist/Parse-Deb-Control

    * CPAN Ratings
        http://cpanratings.perl.org/d/Parse-Deb-Control

    * Search CPAN
        http://search.cpan.org/dist/Parse-Deb-Control

ACKNOWLEDGEMENTS
COPYRIGHT & LICENSE
    Copyright 2009 Jozef Kutej, all rights reserved.

    This program is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.