view release on metacpan or  search on metacpan

lib/App/html2wp.pm  view on Meta::CPAN

    my %args = @_;

    my $dry_run = $args{-dry_run};

    my $filename = $args{filename};
    (-f $filename) or return [404, "No such file '$filename'"];

    require File::Slurper;
    my $html = File::Slurper::read_text($filename);

    my $title;

 view release on metacpan or  search on metacpan

lib/App/htmlcat.pm  view on Meta::CPAN

        } elsif ($env->{PATH_INFO} eq '/js') {
            return [ 200, [ 'Content-Type' => 'text/javascript' ], [ get_data_section('js') ] ];
        } elsif ($env->{PATH_INFO} eq '/') {
            return [ 200, [ 'Content-Type' => 'text/html; charset=utf-8' ], [ get_data_section('html') ] ];
        } else {
            return [ 404, [], [] ];
        }
    };
}

sub run {

 view release on metacpan or  search on metacpan

script/httpstatus  view on Meta::CPAN

    308 => 'Permanent Redirect',              # RFC 7538
    400 => 'Bad Request',
    401 => 'Unauthorized',
    402 => 'Payment Required',
    403 => 'Forbidden',
    404 => 'Not Found',
    405 => 'Method Not Allowed',
    406 => 'Not Acceptable',
    407 => 'Proxy Authentication Required',
    408 => 'Request Timeout',
    409 => 'Conflict',

script/httpstatus  view on Meta::CPAN

    % httpstatus 4
    400 Bad Request
    401 Unauthorized
    402 Payment Required
    403 Forbidden
    404 Not Found
    405 Method Not Allowed
    406 Not Acceptable
    407 Proxy Authentication Required
    408 Request Timeout
    409 Conflict

script/httpstatus  view on Meta::CPAN

    % httpstatus 40
    400 Bad Request
    401 Unauthorized
    402 Payment Required
    403 Forbidden
    404 Not Found
    405 Method Not Allowed
    406 Not Acceptable
    407 Proxy Authentication Required
    408 Request Timeout
    409 Conflict

 view release on metacpan or  search on metacpan

httpstatus  view on Meta::CPAN

    307 => 'Temporary Redirect',
    400 => 'Bad Request',
    401 => 'Unauthorized',
    402 => 'Payment Required',
    403 => 'Forbidden',
    404 => 'Not Found',
    405 => 'Method Not Allowed',
    406 => 'Not Acceptable',
    407 => 'Proxy Authentication Required',
    408 => 'Request Timeout',
    409 => 'Conflict',

httpstatus  view on Meta::CPAN

    % httpstatus 4
    400 Bad Request
    401 Unauthorized
    402 Payment Required
    403 Forbidden
    404 Not Found
    405 Method Not Allowed
    406 Not Acceptable
    407 Proxy Authentication Required
    408 Request Timeout
    409 Conflict

httpstatus  view on Meta::CPAN

    % httpstatus 40
    400 Bad Request
    401 Unauthorized
    402 Payment Required
    403 Forbidden
    404 Not Found
    405 Method Not Allowed
    406 Not Acceptable
    407 Proxy Authentication Required
    408 Request Timeout
    409 Conflict

 view release on metacpan or  search on metacpan

lib/App/jl.pm  view on Meta::CPAN

=head1 REPOSITORY

=begin html

<a href="https://github.com/bayashi/App-jl/blob/main/lib/App/jl.pm"><img src="https://img.shields.io/badge/Version-0.20-green?style=flat"></a> <a href="https://github.com/bayashi/App-jl/blob/main/LICENSE"><img src="https://img.shields.io/badge/LICENS...

=end html

App::jl is hosted on github: L<http://github.com/bayashi/App-jl>

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

`message` is the HTTP status message, or a similar message such as "No entry
newer than 90 days." This is set when updating the feeds in your cache.

`message` is the HTTP status code; this code could be the real status code from
the server (such as 404 for a "not found" status) or one generated by Jupiter
such that it matches the status message (such as 206 for a "partial content"
status when there aren't any recent entries in the feed). This is set when
updating the feeds in your cache.

`title` is the site's title. When you update the feeds in your cache, it is

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/backpan_author.pm  view on Meta::CPAN

    my $envres = envresmulti();
    for my $author (@{ $args{authors} }) {
        my ($cpanid) = $dbh->selectrow_array(
            "SELECT cpanid FROM author WHERE cpanid=?", {}, uc $author);
        defined $cpanid or do {
            $envres->add_result(404, "No such author '$author'");
            next;
        };

        require Browser::Open;
        my $c = substr($cpanid, 0, 1);

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/bugs_open.pm  view on Meta::CPAN

        # try mod
        if (($file_id, $dist) = $dbh->selectrow_array("SELECT m.file_id, f.dist_name FROM module m JOIN file f ON m.file_id=f.id WHERE m.name=?", {}, $args{module_or_dist})) {
            last;
        }
    }
    $file_id or return [404, "No such module/dist '$args{module_or_dist}'"];

    my $res = App::lcpan::Cmd::dist_meta::handle_cmd(%args, dist=>$dist);
    return [412, $res->[1]] unless $res->[0] == 200;
    my $meta = $res->[2];

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/changes_entry.pm  view on Meta::CPAN

    }

    if ($releases{$version}) {
        [200, "OK", $releases{$version}->serialize];
    } else {
        [404, "No entry for version $version in the Changes for $args{module_or_dist_or_script}"];
    }
}

1;
# ABSTRACT: Show a single entry from a distribution/module's Changes file

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/cpanratings_get_reviews.pm  view on Meta::CPAN

        # try mod
        if (($file_id, $dist, $cpanid, $version) = $dbh->selectrow_array("SELECT m.file_id, f.dist_name, f.cpanid, f.dist_version FROM module m JOIN file f ON m.file_id=f.id WHERE m.name=?", {}, $args{module_or_dist})) {
            last;
        }
    }
    $file_id or return [404, "No such module/dist '$args{module_or_dist}'"];

    require WWW::CPANRatings;
    my @reviews = WWW::CPANRatings->new->get_reviews($dist);
    for (@reviews) {
        delete $_->{dist_link};

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/cpantesters_author.pm  view on Meta::CPAN

    my $envres = envresmulti();
    for my $author (@{ $args{authors} }) {
        my ($cpanid) = $dbh->selectrow_array(
            "SELECT cpanid FROM author WHERE cpanid=?", {}, uc $author);
        defined $cpanid or do {
            $envres->add_result(404, "No such author '$author'");
            next;
        };

        require Browser::Open;
        my $url = "http://matrix.cpantesters.org/?author=$cpanid";

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/cwalitee_of_module_abstract.pm  view on Meta::CPAN

    my $state = App::lcpan::_init(\%args, 'ro');
    my $dbh = $state->{dbh};

    my ($file_id, $abstract) = $dbh->selectrow_array(
        "SELECT file_id, abstract FROM module WHERE name=?", {}, $args{module});
    $file_id or return [404, "No such module '$args{module}'"];

    log_info "Abstract is: %s", $abstract;
    Module::Abstract::Cwalitee::calc_module_abstract_cwalitee(
        abstract => $abstract,
        module => $args{module},

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/gh_clone.pm  view on Meta::CPAN

        # try mod
        if (($file_id, $dist) = $dbh->selectrow_array("SELECT m.file_id, f.dist_name FROM module m JOIN file f ON m.file_id=f.id WHERE m.name=?", {}, $args{module_or_dist})) {
            last;
        }
    }
    $file_id or return [404, "No such module/dist '$args{module_or_dist}'"];

    my $res = App::lcpan::Cmd::dist_meta::handle_cmd(%args, dist=>$dist);
    return [412, $res->[1]] unless $res->[0] == 200;
    my $meta = $res->[2];

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/metacpan_author.pm  view on Meta::CPAN

    my $envres = envresmulti();
    for my $author (@{ $args{authors} }) {
        my ($cpanid) = $dbh->selectrow_array(
            "SELECT cpanid FROM author WHERE cpanid=?", {}, uc $author);
        defined $cpanid or do {
            $envres->add_result(404, "No such author '$author'");
            next;
        };

        require Browser::Open;
        my $url = "https://metacpan.org/author/$cpanid";

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/namespace_authors.pm  view on Meta::CPAN

    my $state = App::lcpan::_init(\%args, 'ro');
    my $dbh = $state->{dbh};

    my $sth = $dbh->prepare("SELECT num_modules FROM namespace WHERE name=?");
    $sth->execute($args{namespace});
    my $row = $sth->fetchrow_arrayref or return [404, "No such namespace"];
    my $num_modules = $row->[0];
    return [200, "OK", []] unless $num_modules;

    $sth = $dbh->prepare("SELECT cpanid AS author,COUNT(*) AS num_modules, 100.0*COUNT(*)/$num_modules AS pct_modules FROM module WHERE name LIKE '$args{namespace}\::%' GROUP BY cpanid ORDER BY num_modules DESC");
    $sth->execute;

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/rt_open.pm  view on Meta::CPAN

        # try mod
        if (($file_id, $dist, $cpanid, $version) = $dbh->selectrow_array("SELECT m.file_id, f.dist_name, f.cpanid, f.dist_version FROM module m JOIN file f ON m.file_id=f.id WHERE m.name=?", {}, $args{module_or_dist})) {
            last;
        }
    }
    $file_id or return [404, "No such module/dist '$args{module_or_dist}'"];

    require Browser::Open;
    my $err = Browser::Open::open_browser("https://rt.cpan.org/Public/Dist/Display.html?Name=$dist");
    return [500, "Can't open browser"] if $err;
    [200];

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/sco_author.pm  view on Meta::CPAN

    my $state = App::lcpan::_init(\%args, 'ro');
    my $dbh = $state->{dbh};

    my ($cpanid) = $dbh->selectrow_array(
        "SELECT cpanid FROM author WHERE cpanid=?", {}, uc $author);
    defined $cpanid or return [404, "No such author '$author'"];

    require Browser::Open;
    my $err = Browser::Open::open_browser("http://search.cpan.org/~$cpanid");
    return [500, "Can't open browser"] if $err;
    [200];

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/similar_authors_from_related_mods.pm  view on Meta::CPAN

    my $state = App::lcpan::_init(\%args, 'ro');
    my $dbh = $state->{dbh};

    my $author = $args{author};
    my $author_rec = $dbh->selectrow_hashref("SELECT * FROM author WHERE cpanid=?", {}, $author)
        or return [404, "No such author: $author"];

    my $modules;
    {
        my $sth = $dbh->prepare("SELECT name FROM module WHERE cpanid=?");
        $sth->execute($author);

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/changes.pm  view on Meta::CPAN

                    push @file_ids, $e;
                }
            }
        }

        return [404, "No such module/dist/script"] unless @file_ids;
        push @where, "file.id IN (".join(",", @file_ids).")";
    }

    my $sql = "SELECT
  content.path content_path,

lib/App/lcpan/Cmd/changes.pm  view on Meta::CPAN

            "cmdline.page_result"=>1,
        }];
    }

    if ($first_row) {
        return [404, "No Changes file found in $first_row->{release}"];
    } else {
        return [404, "No such module or dist"];
    }
}

1;
# ABSTRACT: Show Changes of distribution/module

 view release on metacpan or  search on metacpan

lib/App/MadEye/Plugin/Agent/Perlbal.pm  view on Meta::CPAN

        Timeout  => $timeout,
    ) or return "cannot open socket";
    $sock->write($req);

    my $content = join '', <$sock>;
    if ($content =~ m{Server: Perlbal.+<h1>404 - Not Found</h1>}s) {
        return; # alive.
    } else {
        return "this is not a perlbal?\n\n$content";
    }
}

 view release on metacpan or  search on metacpan

script/_metasyn  view on Meta::CPAN

Log/ger/Filter.pm,392490,1155,31;13019
Log/ger/Filter/Code.pm,393676,1401,32;13085
Log/ger/Format.pm,395103,1299,33;13167
Log/ger/Format/Default.pm,396436,3305,34;13240
Log/ger/Format/MultilevelLog.pm,399781,5142,35;13358
Log/ger/Format/None.pm,404954,1275,36;13541
Log/ger/Heavy.pm,406254,18150,37;13608
Log/ger/Layout.pm,424430,1235,38;14009
Log/ger/Output.pm,425691,1364,39;14077
Log/ger/Output/Array.pm,427087,1591,40;14156
Log/ger/Output/Null.pm,428709,1279,41;14242

script/_metasyn  view on Meta::CPAN

Mo/chain.pm,462595,216,53;15386
Mo/coerce.pm,462832,330,54;15390
Mo/default.pm,463184,435,55;15394
Mo/exporter.pm,463642,176,56;15398
Mo/import.pm,463839,185,57;15402
Mo/importer.pm,464047,207,58;15406
Mo/is.pm,464271,228,59;15410
Mo/nonlazy.pm,464521,129,60;15414
Mo/option.pm,464671,259,61;15418
Mo/required.pm,464953,340,62;15422
Mo/xs.pm,465310,256,63;15426

script/_metasyn  view on Meta::CPAN

#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err();    # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
#                           #     {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#

 view release on metacpan or  search on metacpan

mimi.fatpack  view on Meta::CPAN

$fatpacked{"DBD/Sponge.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_SPONGE';
  use strict;{package DBD::Sponge;require DBI;require Carp;our@EXPORT=qw();our$VERSION="0.03";our$drh=undef;my$methods_already_installed;sub driver{return$drh if$drh;DBD::Sponge::db->install_method("sponge_test_installed_method")unless$methods_alread...
DBD_SPONGE

$fatpacked{"DBI.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI';
  package DBI;require 5.008_001;BEGIN {our$XS_VERSION=our$VERSION="0.03";$VERSION=eval$VERSION}use Carp();use DynaLoader ();use Exporter ();BEGIN {@ISA=qw(Exporter DynaLoader);@EXPORT=();@EXPORT_OK=qw(%DBI %DBI_methods hash);%EXPORT_TAGS=(sql_types=>...
  		DBI::_firesafe;		# just in case
  	    require $driver_class;	# load the driver
      };if ($@){my$err=$@;my$advice="";if ($err =~ /Can't find loadable object/){$advice="Perhaps DBD::$driver was statically linked into a new perl binary." ."\nIn which case you need to use that new perl binary." ."\nOr perhaps only the .pm file wa...
DBI

mimi.fatpack  view on Meta::CPAN

$fatpacked{"DBI/Gofer/Request.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_REQUEST';
  package DBI::Gofer::Request;use strict;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor);our$VERSION="0.03";use constant GOf_REQUEST_IDEMPOTENT=>0x0001;use constant GOf_REQUEST_READONLY=>0x0002;our@EXPORT=qw(GOf_REQUEST_IDEMPOTENT GOf_RE...
DBI_GOFER_REQUEST

$fatpacked{"DBI/Gofer/Response.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_RESPONSE';
  package DBI::Gofer::Response;use strict;use Carp;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor Exporter);our$VERSION="0.03";use constant GOf_RESPONSE_EXECUTED=>0x0001;our@EXPORT=qw(GOf_RESPONSE_EXECUTED);__PACKAGE__->mk_accessors(qw(v...
DBI_GOFER_RESPONSE

$fatpacked{"DBI/Gofer/Serializer/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_SERIALIZER_BASE';
  package DBI::Gofer::Serializer::Base;use strict;use warnings;use Carp qw(croak);our$VERSION="0.03";sub new {my$class=shift;my$deserializer_class=$class->deserializer_class;return bless {deserializer_class=>$deserializer_class }=>$class}sub deserial...
DBI_GOFER_SERIALIZER_BASE

 view release on metacpan or  search on metacpan

SIGNATURE  view on Meta::CPAN

SHA1 81282c138afcda10dbba231c66827b38efdf771a lib/App/mirai/Subprocess.pm
SHA1 a1b06937158bf60aaf6c42b5a9ef73acb0ea4806 lib/App/mirai/Tickit.pm
SHA1 a31c202565e3c7db1ab2200f1f5a8ac9b7bd1f8f lib/App/mirai/Tickit/TabRibbon.pm
SHA1 7523878641b83e8a59b693e65aa04cd0f416f288 lib/App/mirai/Tickit/TabRibbon.pod
SHA1 f71e416e183e4cfddaddcf8ccfdae48d33748bdb lib/App/mirai/Tickit/Widget/Logo.pm
SHA1 db4df1f65dd58b4419147404e92a8bb8d2272e98 lib/App/mirai/Tickit/Widget/Logo.pod
SHA1 d3dcd146e9d22b0d39bc31cff6c9b4ac56fff98f lib/App/mirai/Watcher.pm
SHA1 3b601858c0379fcf616413f5cd7c57cadf9b76ba lib/App/mirai/Watcher.pod
SHA1 e875d5b24d924d8a40cb350b9ba8b1ae8b1a47cb lib/irai.pm
SHA1 51b9325dbe58a7a60c745bc270e63a43caed984d share/default.style
SHA1 985d9ded8d8ed7e344a09e52b1402e878e91da28 t/00-check-deps.t

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.24 2016-10-13T10:01:53+0200
 - Writing/reading files are more robust

0.23 2016-09-08T20:08:22+0200
 - Fix rendering 404 for paste_not_found() and .txt extension

0.22 2016-09-06T21:18:39+0200
 - Will never allow robots
 - Will only graph csv data

Changes  view on Meta::CPAN

   http://www.cpantesters.org/cpan/report/873ffedb-6bf4-1014-a355-7b0739136c96

0.17 2016-01-13T21:36:27+0100
 - Fix unicode.t by bumping Mojolicious version #10
 - Cannot make empty paste
 - Non-existing paste will result in 404 instead of 500 #8
   Contributor: Stephan Jauernick
 - Use File::Spec to construct correct paths on all OS #8
   Contributor: Stephan Jauernick

0.16 2016-01-13T09:25:51+0100

Changes  view on Meta::CPAN

 - No need to encode/decode UTF-8 anymore

0.15 2015-04-30T10:17:13+0200
 - Change "Powered by" URL
 - Change styling for .morris-hover
 - Change 404 page to show that the paste could not be found.

0.14 2015-04-20T17:03:36+0200
 - Fix unit tests

0.13 2015-04-20T16:54:30+0200

Changes  view on Meta::CPAN

0.04 2013-09-05T23:55:30Z
 - Fix including jquery.js from Mojo
 - Render as HTML5
 - Looks better on iPhone
 - Render 404 when paste is not found
 - Trying to trick the dumbest robots

0.03 2013-09-05T16:54:59Z
 - Fix typo in PREREQ_PM

 view release on metacpan or  search on metacpan

lib/App/mookview.pm  view on Meta::CPAN

        return $self->return_css($path) if $path =~ m!^/css/.+!;
        Plack::App::Directory->new->to_app->($req->env);        
    };
}

sub return_404 {
    return [404, [ 'Content-Type' => 'text/plain' ], ['Not Found'] ];
}

sub return_css {
    my ($self, $path) = @_;
    return $self->return_404 unless $path;
    my ($name) = $path =~ m!/([^/]+?)$!;
    my $local_path = $self->local_or_share_path([qw/share static css/, $name]);
    return $self->return_404 unless $local_path;
    my $css = $local_path->slurp();
    return [200, [ 'Content-Type' => 'text/css', 'Content-Length' => length $css ], [ encode_utf8($css) ] ];
}

sub return_markdown {

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

  Author: Pavel Serikov <pavelsr@cpan.org>
  Date : 2019-02-19 21:13:18 +0000

    Readme.md 

  Change: 5ac090fc3f8dc94fd77fc1d6765ee3cb47340438
  Author: Pavel Serikov <pavelsr@cpan.org>
  Date : 2019-02-19 21:11:45 +0000

    Initial commit 

 view release on metacpan or  search on metacpan

lib/App/opan.pm  view on Meta::CPAN

  $_[0]->stash(path => $_[0]->stash->{dist_path});
  $nopin_static->dispatch($_[0]) or $serve_upstream->($_[0]);
};

get "/autopin/modules/02packages.details.txt" => sub {
  return $_[0]->render(text => 'Autopin off', status => 404)
    unless $ENV{OPAN_AUTOPIN};
  $base_static->dispatch($_[0]->stash(path => "nopin/index"));
};

get "/autopin/modules/02packages.details.txt.gz" => sub {
  return $_[0]->render(text => 'Autopin off', status => 404)
    unless $ENV{OPAN_AUTOPIN};
  $base_static->dispatch($_[0]->stash(path => "nopin/index.gz"));
};

get '/autopin/authors/id/*dist_path' => sub {
  return $_[0]->render(text => 'Autopin off', status => 404)
    unless $ENV{OPAN_AUTOPIN};
  return if $nopin_static->dispatch($_[0]->stash(path => $_[0]->stash->{dist_path}));
  return if eval {
    do_pin(app, $_[0]->stash->{path});
    $pinset_static->dispatch($_[0]);
  };
  return $_[0]->render(text => 'Not found', status => 404);
};

caller() ? app : app->tap(sub { shift->log->level('fatal') })->start;

=head1 NAME

 view release on metacpan or  search on metacpan

lib/App/optex/util/filter.pm  view on Meta::CPAN

my %control  = (
    nul  => [ 's', "\000", "\x{2400}" ], # ␀ SYMBOL FOR NULL
    soh  => [ 's', "\001", "\x{2401}" ], # ␁ SYMBOL FOR START OF HEADING
    stx  => [ 's', "\002", "\x{2402}" ], # ␂ SYMBOL FOR START OF TEXT
    etx  => [ 's', "\003", "\x{2403}" ], # ␃ SYMBOL FOR END OF TEXT
    eot  => [ 's', "\004", "\x{2404}" ], # ␄ SYMBOL FOR END OF TRANSMISSION
    enq  => [ 's', "\005", "\x{2405}" ], # ␅ SYMBOL FOR ENQUIRY
    ack  => [ 's', "\006", "\x{2406}" ], # ␆ SYMBOL FOR ACKNOWLEDGE
    bel  => [ 's', "\007", "\x{2407}" ], # ␇ SYMBOL FOR BELL
    bs   => [ 's', "\010", "\x{2408}" ], # ␈ SYMBOL FOR BACKSPACE
    ht   => [ 's', "\011", "\x{2409}" ], # ␉ SYMBOL FOR HORIZONTAL TABULATION

 view release on metacpan or  search on metacpan

lib/App/org2wp.pm  view on Meta::CPAN

    my %args = @_;

    my $dry_run = $args{-dry_run};

    my $filename = $args{filename};
    (-f $filename) or return [404, "No such file '$filename'"];

    require File::Slurper;
    my $file_content = File::Slurper::read_text($filename);

    my $post_heading_level = $args{post_heading_level};