Business-DK-FI

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  "license" => "artistic_2",
  "module_name" => "Business::DK::FI",
  "recursive_test_files" => 1,
  "requires" => {
    "Carp" => 0,
    "Class::InsideOut" => 0,
    "Exporter" => 0,
    "Params::Validate" => 0,
    "Readonly" => 0,
    "Scalar::Util" => 0,
    "Try::Tiny" => 0,
    "perl" => "5.005_03"
  },
  "test_requires" => {
    "File::Spec" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,
    "Pod::Coverage::TrustPod" => 0,
    "Test::Exception" => 0,
    "Test::Kwalitee" => "1.21",
    "Test::More" => "0.88",

Changes  view on Meta::CPAN

  I have not been able to replicate the errors locally, but have
  implemented a new strategy for addressing the same problem
  [BDK-17]

  http://logicLAB.jira.com/browse/BDKFI-17


0.02 2011-04-30 Maintenance release, update not required

- Addressed some issues with Perl::Critic tests, introducing
  dependency on Try::Tiny

- Addressed issue with t/critic.t test being run even without
  Test::Perl::Critic being installed, updated to contemporary
  boilerplate [BDKFI-16]

  http://logicLAB.jira.com/browse/BDKFI-16


0.01 2011-04-22

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Class::InsideOut" : "0",
            "Exporter" : "0",
            "Params::Validate" : "0",
            "Readonly" : "0",
            "Scalar::Util" : "0",
            "Try::Tiny" : "0",
            "perl" : "5.005_03"
         }
      },
      "test" : {
         "requires" : {
            "File::Spec" : "0",
            "IO::Handle" : "0",
            "IPC::Open3" : "0",
            "Pod::Coverage::TrustPod" : "0",
            "Test::Exception" : "0",

META.yml  view on Meta::CPAN

  Data::FormValidator::Constraints::Business::DK::FI:
    file: lib/Data/FormValidator/Constraints/Business/DK/FI.pm
    version: '0.09'
requires:
  Carp: '0'
  Class::InsideOut: '0'
  Exporter: '0'
  Params::Validate: '0'
  Readonly: '0'
  Scalar::Util: '0'
  Try::Tiny: '0'
  perl: 5.005_03
resources:
  bugtracker: https://github.com/jonasbn/bdkfi/issues
  repository: git://github.com/jonasbn/bdkfi.git
version: '0.09'

Makefile.PL  view on Meta::CPAN

  "LICENSE" => "artistic_2",
  "MIN_PERL_VERSION" => "5.005_030",
  "NAME" => "Business::DK::FI",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Class::InsideOut" => 0,
    "Exporter" => 0,
    "Params::Validate" => 0,
    "Readonly" => 0,
    "Scalar::Util" => 0,
    "Try::Tiny" => 0
  },
  "TEST_REQUIRES" => {
    "File::Spec" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,
    "Pod::Coverage::TrustPod" => 0,
    "Test::Exception" => 0,
    "Test::Kwalitee" => "1.21",
    "Test::More" => "0.88",
    "Test::Pod" => "1.41",

Makefile.PL  view on Meta::CPAN

  "Module::Build" => "0.30",
  "Params::Validate" => 0,
  "Pod::Coverage::TrustPod" => 0,
  "Readonly" => 0,
  "Scalar::Util" => 0,
  "Test::Exception" => 0,
  "Test::Kwalitee" => "1.21",
  "Test::More" => "0.88",
  "Test::Pod" => "1.41",
  "Test::Pod::Coverage" => "1.08",
  "Try::Tiny" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}

delete $WriteMakefileArgs{CONFIGURE_REQUIRES}

dist.ini  view on Meta::CPAN

inherit_version = 0    ;optional flag
inherit_missing = 0    ;optional flag
meta_noindex    = 1    ;optional flag

[Prereqs]
Exporter         = 0 ; core
Carp             = 0 ; core
Class::InsideOut = 0
Params::Validate = 0
Readonly         = 0
Try::Tiny        = 0
perl             = 5.005_03
Scalar::Util     = 0

[Prereqs / TestRequires]
Test::Exception          = 0
Test::More               = 0.88 ; 0.88 required by Test::Kwalitee
Test::Kwalitee           = 1.21 ; from Dist::Zilla
Pod::Coverage::TrustPod  = 0    ; from Dist::Zilla
Test::Pod                = 1.41 ; from Dist::Zilla
Test::Pod::Coverage      = 1.08 ; from Dist::Zilla

lib/Business/DK/FI.pm  view on Meta::CPAN

=head2 _calculate_checksum

This method calculates a checksum, it takes a single number as parameter and returns the calculated checksum.

=head2 _calculate_sum

This method calculates a sum it takes a number and a reference to an array of control cifers. It calculates a single sum based on the number and the control cifer and returns this.

=head1 DIAGNOSTICS

All methods B<die> if their API is not respected. Method calls can with success be wrapped in L<Try::Tiny> or C<eval> blocks.

=head1 CONFIGURATION AND ENVIRONMENT

The module requires no special configuration or environment.

=head1 DEPENDENCIES

=over

=item * L<Params::Validate>

lib/Business/DK/FI.pm  view on Meta::CPAN


Please see the distribution F<TODO> file also and the distribution road map at:
    L<http://logiclab.jira.com/browse/BDKFI#selectedTab=com.atlassian.jira.plugin.system.project%3Aroadmap-panel>

=head1 SEE ALSO

=over

=item * http://www.pbs.dk/

=item * L<Try::Tiny>

=item * L<Business::DK::CVR>

=item * L<Business::DK::CPR>

=item * L<Business::DK::PO>

=item * L<Business::DK::Postalcode>

=item * L<Business::DK::Phonenumber>

lib/Class/Business/DK/FI.pm  view on Meta::CPAN

package Class::Business::DK::FI;

use strict;
use warnings;
use Class::InsideOut qw( private register id );
use Carp qw(croak);
use English qw(-no_match_vars);
use Try::Tiny;

use Business::DK::FI qw(validateFI);

our $VERSION = '0.09';

private number => my %number;    # read-only accessor: number()

sub new {
    my ( $class, $number ) = @_;

lib/Class/Business/DK/FI.pm  view on Meta::CPAN


Accessor to get the FI assigned to a FI object.

=head2 set_number

Mutator taking a single argument a 16 digit FI number. The number should be
valid. If not the method dies.

=head1 DIAGNOSTICS

All methods B<die> if their API is not respected. Method calls can with success be wrapped in L<Try::Tiny> or C<eval> blocks.

=over

=item * You must provide a FI number, thrown by L</set_number> and L</new> if
no argument is provided.

=item * Invalid FI number parameter, thrown by L</new> and L</set_number> if
the provided argument is not a valid FI number.

=back

lib/Class/Business/DK/FI.pm  view on Meta::CPAN


=head1 TODO

Please see the distribution F<TODO> file also and the distribution road map at:
    L<http://logiclab.jira.com/browse/BDKFI#selectedTab=com.atlassian.jira.plugin.system.project%3Aroadmap-panel>

=head1 SEE ALSO

=over

=item * L<Try::Tiny>

=item * L<Business::DK::CVR>

=item * L<Business::DK::CPR>

=item * L<Business::DK::PO>

=item * L<Business::DK::Postalcode>

=item * L<Business::DK::Phonenumber>



( run in 0.393 second using v1.01-cache-2.11-cpan-05444aca049 )