File Coverage

blib/lib/GStreamer1/Caps/Simple.pm
Criterion Covered Total %
statement 6 15 40.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 19 42.1


line stmt bran cond sub pod time code
1             # Copyright (c) 2014 Timm Murray
2             # All rights reserved.
3             #
4             # Redistribution and use in source and binary forms, with or without
5             # modification, are permitted provided that the following conditions are met:
6             #
7             # * Redistributions of source code must retain the above copyright notice,
8             # this list of conditions and the following disclaimer.
9             # * Redistributions in binary form must reproduce the above copyright
10             # notice, this list of conditions and the following disclaimer in the
11             # documentation and/or other materials provided with the distribution.
12             #
13             # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
14             # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
15             # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
16             # ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
17             # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
18             # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
19             # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
20             # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
21             # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
22             # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
23             # POSSIBILITY OF SUCH DAMAGE.
24             package GStreamer1::Caps::Simple;
25             $GStreamer1::Caps::Simple::VERSION = '0.001';
26 1     1   1217 use v5.12;
  1         2  
  1         33  
27 1     1   3 use warnings;
  1         1  
  1         119  
28              
29              
30             sub new
31             {
32 0     0 0   my ($class, $media_type, @args) = @_;
33 0           my $self = GStreamer1::Caps->new_empty_simple( $media_type );
34              
35 0           while( scalar(@args) >= 3 ) {
36 0           my $name = shift @args;
37 0           my $type = shift @args;
38 0           my $value = shift @args;
39              
40 0           my $glib_type_value = Glib::Object::Introspection::GValueWrapper->new(
41             $type => $value,
42             );
43 0           $self->set_value( $name => $glib_type_value );
44             }
45              
46 0           return $self;
47             }
48              
49              
50             1;
51             __END__