File Coverage

blib/lib/Interchange6/Schema/Populate/MessageType.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 1 1 100.0
total 11 11 100.0


line stmt bran cond sub pod time code
1             package Interchange6::Schema::Populate::MessageType;
2              
3             =head1 NAME
4              
5             Interchange6::Schema::Populate::MessageType
6              
7             =head1 DESCRIPTION
8              
9             This module provides population capabilities for the MessageType schema
10              
11             =cut
12              
13 4     4   2656 use Moo::Role;
  4         10  
  4         32  
14              
15             =head1 METHODS
16              
17             =head2 populate_message_types
18              
19             =cut
20              
21             sub populate_message_types {
22 3     3 1 145 my $self = shift;
23              
24 3         22 my @types = qw( blog_post order_comment product_review wiki_node );
25              
26 3         28 my $rset = $self->schema->resultset('MessageType');
27              
28 3         1342 map { $rset->create({ name => $_ }) } @types;
  12         18745  
29             }
30              
31             1;