File Coverage

blib/lib/Config/Model/Backend/OpenSsh/Sshd.pm
Criterion Covered Total %
statement 29 30 96.6
branch n/a
condition n/a
subroutine 10 11 90.9
pod 1 1 100.0
total 40 42 95.2


line stmt bran cond sub pod time code
1             #
2             # This file is part of Config-Model-OpenSsh
3             #
4             # This software is Copyright (c) 2008-2022 by Dominique Dumont.
5             #
6             # This is free software, licensed under:
7             #
8             # The GNU Lesser General Public License, Version 2.1, February 1999
9             #
10 3     3   47598 use strict;
  3         8  
  3         102  
11 3     3   18 use warnings;
  3         20  
  3         194  
12              
13             $Config::Model::Backend::OpenSsh::Sshd::VERSION = '2.9.0.1';
14             use Mouse ;
15 3     3   18 extends "Config::Model::Backend::Any" ;
  3         8  
  3         32  
16              
17             with (
18             'Config::Model::Backend::OpenSsh::Role::Reader',
19             'Config::Model::Backend::OpenSsh::Role::Writer',
20             );
21              
22             use Carp ;
23 3     3   1610 use IO::File ;
  3         32  
  3         221  
24 3     3   759 use Log::Log4perl;
  3         3592  
  3         371  
25 3     3   19 use File::Copy ;
  3         5  
  3         30  
26 3     3   1023 use File::Path ;
  3         4193  
  3         169  
27 3     3   22  
  3         6  
  3         362  
28             my $logger = Log::Log4perl::get_logger("Backend::OpenSsh");
29              
30             # now the write part
31             my $self = shift;
32             $self->ssh_write(@_) ;
33 4     4 1 1046573 }
34 4         39  
35             return sprintf("%-20s %s\n",@_) ;
36             }
37              
38 0     0      
39             no Mouse;
40              
41             1;
42 3     3   20  
  3         8  
  3         21  
43             # ABSTRACT: Backend for sshd configuration files
44              
45              
46             =pod
47              
48             =encoding UTF-8
49              
50             =head1 NAME
51              
52             Config::Model::Backend::OpenSsh::Sshd - Backend for sshd configuration files
53              
54             =head1 VERSION
55              
56             version 2.9.0.1
57              
58             =head1 SYNOPSIS
59              
60             None
61              
62             =head1 DESCRIPTION
63              
64             This class provides a backend to read and write sshd client configuration files.
65              
66             This class is a plugin for L<Config::Model::BackendMgr>.
67              
68             =head1 SEE ALSO
69              
70             L<cme>, L<Config::Model>,
71              
72             =head1 AUTHOR
73              
74             Dominique Dumont
75              
76             =head1 COPYRIGHT AND LICENSE
77              
78             This software is Copyright (c) 2008-2022 by Dominique Dumont.
79              
80             This is free software, licensed under:
81              
82             The GNU Lesser General Public License, Version 2.1, February 1999
83              
84             =cut