# -*- perl -*- Lintian::Processable::Changes::Overrides # # Copyright © 2021 Felix Lechner # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the Free # Software Foundation; either version 2 of the License, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, but WITHOUT # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for # more details. # # You should have received a copy of the GNU General Public License along with # this program. If not, see . package Lintian::Processable::Changes::Overrides; use v5.20; use warnings; use utf8; use Moo::Role; use namespace::clean; =head1 NAME Lintian::Processable::Changes::Overrides - access to override data =head1 SYNOPSIS use Lintian::Processable; =head1 DESCRIPTION Lintian::Processable::Changes::Overrides provides an interface for overrides. =head1 INSTANCE METHODS =over 4 =item override_file =cut has override_file => ( is => 'rw', lazy => 1, default => sub { my ($self) = @_; return undef; }); =item overrides =cut has overrides => ( is => 'rw', lazy => 1, default => sub { my ($self) = @_; my %override_data; return \%override_data; }); 1; =back =head1 AUTHOR Originally written by Felix Lechner for Lintian. =head1 SEE ALSO lintian(1) =cut # Local Variables: # indent-tabs-mode: nil # cperl-indent-level: 4 # End: # vim: syntax=perl sw=4 sts=4 sr et