This file is indexed.

/usr/share/perl5/Petal/Utils/Printf.pm is in libpetal-utils-perl 0.06-2.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
package Petal::Utils::Printf;

use strict;
use warnings::register;

use Carp;

use base qw( Petal::Utils::Base );

use constant name    => 'printf';
use constant aliases => qw();

our $VERSION  = ((require Petal::Utils), $Petal::Utils::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.3 $ '))[2];

sub process {
  my $class = shift;
  my $hash  = shift;
  my $args  = shift || confess( "'printf' expects at least 2 arguments (got nothing)!" );

  my @tokens = $class->split_args( $args );
  my $format = shift @tokens;
  $format =~ s/\'//g;
  my @printf_args = ();
  foreach my $arg (@tokens) {
    push @printf_args, $class->fetch_arg($hash, $arg);
  }
  return sprintf($format, @printf_args);
}



1;

__END__

Description: The printf modifier acts exactly like Perl's sprintf function to
print formatted strings.


Basic Usage:
  printf: format list
    format is the string you wish to be interpolated by printf
    list is a list of values to insert

Example:
  <p petal:content="printf:'%s' 'Astro'">Astro</p>  # true
  <p petal:content="printf:'%02d' '2'">02</p>  # false

See also:
  Test template t/data/26__printf.html for more examples of use.