File manager

File manager - Edit - /home/newsbmcs.com/public_html/static/img/logo/liberror-perl.tar

Back
copyright��0000644��00000005155�15027507422�0006511 0��ustar�00��Format: https://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Source: https://metacpan.org/release/Error Upstream-Contact: Shlomi Fish <shlomif@iglu.org.il> Upstream-Name: Error Files: * Copyright: 1997-1998, Graham Barr <gbarr@pobox.com> 2020, Shlomi Fish https://www.shlomifish.org/ License: Artistic or GPL-1+ Comment: # Based on my original Error.pm, and Exceptions.pm by Peter Seibel # <peter@weblogic.com> and adapted by Jesse Glick <jglick@sig.bsh.com>. # # but modified *significantly* Files: lib/Error/Simple.pm Copyright: 2006, Shlomi Fish <shlomif@iglu.org.il> License: MIT/X11 Files: debian/* Copyright: 1999, 2000, 2001, 2002, 2003, Paolo Molaro <lupus@debian.org> 2003, 2004, 2005, Luk Claes <luk@debian.org> 2003, Ardo van Rangelrooij <ardo@debian.org> 2005, 2007, Clint Burfoot <clint@burfoot.info> 2013, CSILLAG Tamas <cstamas@cstamas.hu> 2015-2020, gregor herrmann <gregoa@debian.org> License: Artistic or GPL-1+ License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. License: GPL-1+ 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 1, or (at your option) any later version. . On Debian systems, the complete text of version 1 of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-1'. License: MIT/X11 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: . The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. . THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ��changelog.Debian.gz��0000644��00000003143�15027507422�0010223 0��ustar�00��WmS�F�ί؁�`��lc�fxqHɄ��ɇ��7�t�� v�߻��q�� >��+�G��TN�J@�s��;~�T6�r5�4��`��dg��>��=\|C4�g�(d $hX��;�"�!��cg��n��{F��4f��Js�� MX:F )b��[�>V8�['z�Ҵ��2ɤzA�Jj��2�A�-�) �Xt��<C$��I� &�!��3�0õ�1MZ��#�s'��#��$�R�0�fRcv-�f�b�l>��,��;��T��[̡�=�{�� Ϟ�y;;�Zm��&܎ʤN��pjÃ��]��[�r;��=p�'� l��v�9f,��viP=�w��k�_D��,�mj0d��N�1��~��Q �kk�sڛjP��4�_��p�T�x�B>N�]h��h�w�=:�A_��yX(��#.��V��i\|.p4��"�J��f ��o 2��v��V7�Q��t� j��Nɤ�ӻE[�`��pE��t-7��{�U>X��}��7�5Kf��K��3jhR�Y��f��v��L��!��L�,��Ҳ�\��H;�(cS�Y�&�%V� ��E� ��75+'\|��mza+9�͑J݇�y�(�v�W��nm�y&$�_h�eq�౞�"P��:��t%�I��"c3�Pa'=��L�7d��YU�-3�y��OJ��;C� ��T%k�1ʕ��!H��.'^NH~�)��0�Z)^)�QR�V0��\x��e��r��5��ϔ�j�5).~f��L0cc\�槿��p��-�T��1΋JQTW��~t��b2>�pp�ݏ�8��>\�2��O�ژ2��$�P{�;)M�&��NF�#��>4�JU)�!F��wp��,JP�ꈧLͪ��Q��[�Kˆ��{�k�l�p�;I��H��Kiy��}��NY�I��2le�}�Z��A+�T4��]��3��4w��mD��P٢Y^�$�A"�\�S�-��w�BD�I�o�p�R��Y��^�w.�@�z�d�o�ۆn>��>��K{R)m�Q+<��w@�a9[OP�0sE��KF�P��3��A�ZJ��b�JC"O�)�_@X�pHJhqT�ꕔ��Q��Dm�gYF��xQ�krW�υk:K՞��A1��~�_�~��۽�G�QJ��w�ܽ��IYQ\|yJ�њx��N-S�K)NʹD4�N+v��x5�.��$��i($��QG�g�׶��zToa��~dx��2�Z6.h2}�+�x*�� w}`�rau�B��ʴؒ��^��5��4��ߦ��7��۳�a�3��n[>�X�� A�튆��ݲ+�� >o�7��S�XŤ��t�m0�c��9�?x��Ggvz�c��r��_1��Ug]6��'�<��\|x��'� ��.��T��ޮ�͠�&ӱ��G�u2{@�R�s��@��E��>ˌ3F��;�!�>S��examples/warndie.pl��0000644��00000000712�15027507422�0010354 0��ustar�00��#!/usr/bin/perl -w # Usage: perl warndie.pl [1 or true or whatever if you want to use warndie] require Error; if( $ARGV[0] ) { import Error qw( :warndie ); print "Imported the :warndie tag.\n"; print "\n"; } else { print "Running example without the :warndie tag.\n"; print "Try also passing a true value as \$ARGV[0] to import this tag\n"; print "\n"; } sub inner { shift->foo(); } sub outer { inner( @_ ); } outer( undef ); ��examples/next-in-loop/README��0000644��00000000243�15027507422�0011576 0��ustar�00��This is a case study for various ways to implement a "next" command inside one of the Error.pm clauses, which itself will be inside an inner loop inside Error.pm. ��examples/next-in-loop/Error.pm-next-label.pl��0000644��00000000672�15027507422�0015016 0��ustar�00��#!/usr/bin/perl use strict; use warnings; use Error qw(:try); use IO::Handle; package MyError; use base 'Error'; package SecondError; use base 'Error'; package main; autoflush STDOUT 1; SHLOMIF_FOREACH: foreach my $i (1 .. 100) { try { if ($i % 10 == 0) { throw MyError; } } catch MyError with { my $E = shift; next SHLOMIF_FOREACH; }; print "$i\n"; } ��examples/next-in-loop/Error.pm-next.pl��0000644��00000000631�15027507422�0013734 0��ustar�00��#!/usr/bin/perl use strict; use warnings; use Error qw(:try); use IO::Handle; package MyError; use base 'Error'; package SecondError; use base 'Error'; package main; autoflush STDOUT 1; foreach my $i (1 .. 100) { try { if ($i % 10 == 0) { throw MyError; } } catch MyError with { my $E = shift; next; }; print "$i\n"; } ��examples/next-in-loop/Error.pm-next-out-of-catch.pl��0000644��00000001000�15027507422�0016212 0��ustar�00��#!/usr/bin/perl use strict; use warnings; use Error qw(:try); use IO::Handle; package MyError; use base 'Error'; package SecondError; use base 'Error'; package main; autoflush STDOUT 1; SHLOMIF_FOREACH: foreach my $i (1 .. 100) { my $caught = 0; try { if ($i % 10 == 0) { throw MyError; } } catch MyError with { my $E = shift; $caught = 1; }; if ($caught) { next SHLOMIF_FOREACH; } print "$i\n"; } examples/next-in-loop/Error.pm-eval.pl��0000644��00000000747�15027507422�0013715 0��ustar�00��#!/usr/bin/perl use strict; use warnings; use Error qw(:try); use Scalar::Util qw(blessed); use IO::Handle; package MyError; use base 'Error'; package SecondError; use base 'Error'; package main; autoflush STDOUT 1; SHLOMIF_FOREACH: foreach my $i (1 .. 100) { eval { if ($i % 10 == 0) { throw MyError; } }; my $E = $@; if (blessed($E) && $E->isa('MyError')) { next SHLOMIF_FOREACH; } print "$i\n"; } ��examples/example.pl��0000644��00000001440�15027507422�0010355 0��ustar�00�� use lib '.'; use Error qw(:try); use strict; use warnings; @Error::Bad::ISA = qw(Error); $Error::Debug = 1; # turn on verbose stacktrace sub abc { try { try { throw Error::Simple("a simple error"); } catch Error::Simple with { my $err = shift; throw Error::Bad(-text => "some text"); } except { return { 'Error::Simple' => sub { warn "simple" } } } otherwise { 1; } finally { warn "finally\n"; }; } catch Error::Bad with { 1; }; } sub def { unlink("not such file") or record Error::Simple("unlink: $!", $!) and return; 1; } abc(); my $x = prior Error; print "--\n",$x->stacktrace; unless(defined def()) { my $x = prior Error 'main'; print "--\n",0+$x,"\n",$x; # 0+$x converts to Integer via "value" method } ��

| ver. 1.4 | Github | . | PHP 8.2.28 | Generation time: 0.02 | proxy | phpinfo | Settings