/usr/share/perl5/Xray/Scattering/None.pm is in libxray-scattering-perl 3.0.1-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 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | ## Time-stamp: <16-Nov-2009 08:17:52 bruce>
######################################################################
## This module is copyright (c) 2005-2008 Bruce Ravel
## <bravel AT bnl DOTgov>
## http://cars9.uchicago.edu/~ravel/software/exafs/
##
## -------------------------------------------------------------------
## All rights reserved. This program is free software; you can
## redistribute it and/or modify it under the same terms as Perl
## itself.
##
## 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
## Artistic License for more details.
## -------------------------------------------------------------------
######################################################################
## $Id: CromerMann.pm,v 1.3 1999/06/11 22:19:59 bruce Exp $
######################################################################
## Code:
package Xray::Scattering::None;
use strict;
use warnings;
use version;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use Chemistry::Elements qw(get_symbol);
use File::Spec;
use Storable;
require Exporter;
@ISA = qw(Exporter AutoLoader);
@EXPORT_OK = qw();
$VERSION = version->new("3.0.0");
sub tabulated {
shift;
my $sym = lc($_[0]);
return ucfirst($sym);
};
{
no warnings 'once';
# alternate names
*has = \ &tabulated;
};
sub get_f {
shift;
return 0;
};
sub get_coefficients {
shift;
my $sym = lc($_[0]);
my @null = (0,0,0,0,0,0,0,0,0,0,0);
return @null;
};
1;
__END__
=head1 NAME
Xray::Scattering::None - Fallback methods for Xray::Scattering
=head1 SYNOPSIS
use Xray::Scattering;
Xray::Scattering->load('None');
$fnot = Xray::Scattering->get_f($symb, $d);
=head1 DESCRIPTION
This module provides a fallback subclass for the Xray::Scattering methods. It
provides all the methods of the real subclasses, but returns fallback values.
=head1 METHODS
=over 4
=item C<get_f>
Retruns 0.
=item C<get_coefficients>
returns an array of 11 zeros.
=item C<has>
Always returns the symbol itself.
=back
=head1 AUTHOR
Bruce Ravel, bravel AT bnl DOT gov
http://cars9.uchicago.edu/~ravel/software/exafs/
=cut
|