lib/Test/Smoke/Fact/Config.pm

   1 package Test::Smoke::Fact::Config;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base "Metabase::Fact::Hash";
   7
   8 our $VERSION = "0.011";
   9
  10 sub required_keys
  11 {
  12     qw( arguments
  13         parallel
  14         debugging
  15         );
  16     } # required_keys
  17
  18 sub optional_keys
  19 {
  20     qw(
  21         );
  22     } # optional_keys
  23
  24 sub validate_content
  25 {
  26     my $self = shift;
  27
  28     my $content = $self->content;
  29     $content->{arguments} ||= "[default]";
  30     $content->{parallel}  ||= 0;
  31     $content->{debugging} ||= 0;
  32     $self->SUPER::validate_content;
  33     } # validate_content
  34
  35 sub content_metadata
  36 {
  37     my $self = shift;
  38     my $content = $self->content;
  39
  40     return { map { $_ => $content->{$_} }
  41         $self->required_keys, $self->optional_keys };
  42     } # content_metadata
  43
  44 sub content_metadata_types
  45 {
  46     my $self = shift;
  47
  48     return { map { $_ => "//str" }
  49         $self->required_keys, $self->optional_keys };
  50     } # content_metadata_types
  51
  52 1;
  53
  54 __END__
  55
  56 =head1 NAME
  57
  58 Test::Smoke::Fact::Config - The Configuration for a Test::Smoke report
  59
  60 =head1 SYNOPSIS
  61
  62   my $fact = Test::Smoke::Fact::Config->new (
  63       resource => "http://perl5.git.perl.org/perl.git/8c576062",
  64       content  => {
  65           arguments => "-Duse64bitall -DDEBUGGING",
  66           parallel  => 1,
  67           debugging => 1,
  68           },
  69       );
  70
  71 =head1 DESCRIPTION
  72
  73 This fact just shows the configuration that was smoked.
  74
  75 =head2 arguments
  76
  77 A space separated list of Configure options.
  78
  79 =head2 parallel
  80
  81 A boolean value indicating if this build was tested in parallel.
  82 Both L<Test::Smoke>'s C<harness_options> and the environment variable
  83 C<TEST_JOBS> can enable parallel smokes.
  84
  85 =head1 SEE ALSO
  86
  87 L<Test::Smoke>, L<Test::Smoke::Metabase>, L<Metabase::Fact>.
  88 L<Metabase::Fact::Hash>.
  89
  90 =head1 AUTHOR
  91
  92 H.Merijn Brand
  93
  94 =head1 COPYRIGHT AND LICENSE
  95
  96 Copyright (c) 2011-2012 by H.Merijn Brand
  97
  98 This library is free software; you can redistribute it and/or modify
  99 it under the same terms as Perl itself.
 100
 101 =cut